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Preface 


The Commodore 16 represents tremendous value and, while 
intended for the novice, has many surprises in store for the 
experienced programmer. The improved version of Commodore 
BASIC has many powerful graphics statements, making it ideal 
for developing games. 

With this book, Melbourne House continues its tradition of 
Producing high quality literature and software in support of 
personal computers. 


Arrangement of Programs 


The games programs are graded within the book from easy to 
difficult. However, because different people have preferences for 
particular kinds of games, they are listed in the Contents page 
grouped by type. If you enjoy strategy games, you will find them 
all by consulting the Contents. 


Ease of Use 


Like us, you have probably gone crosseyed while trying to type in 
programs from computer magazines. Counting spaces and 
trying to distinguish Commodore graphics characters are the two 
most frustrating experiences of program typing. 

Be of good cheer! In this book programs have been formatted 
for greater clarity. Graphics characters have been redefined to 
resemble keyboard pictographs, and spaces within strings are 
indicated by small black pyramids. 

To speed program debugging, the ChexSum utility program 
enables you to identify incorrectly-typed lines immediately. (This 
aid is unique to Melbourne House games books.) 

But — and this Is an important but — read the chapter ‘Program 
Accuracy’ first if you want to get the maximum benefit from all the 
aids to accurate transcription. 


Programming Projects 


We hope that as you read and use our book, you will absorb the 
principles of programming the Commodore 16 by osmosis. Lists 
of variables have been provided and subroutine names inserted 
in listings to help you discover how programs work. 

We have also suggested improvements you may make to the 
games as achallenge to your programming skills. 


Suggestions 


Melbourne House is always interested in feedback from readers. 
whether it be suggestions, praise or complaints — see Appendix 
E, ‘Reader Feedback. 


Happy computer gaming! 


Richard Woolcock 
Cameron Duffy 
September 1984 


Program Accuracy 


Programs take a long time to type in and debug. To help make 
programs easier to read and debug, printouts have been 
specially formatted, and utilities have been provided to help you 
get programs running. Read the rest of this chapter, and enter the 
Merge and ChexSum programs before you enter any games 
programs. 


FORMATTED LISTINGS 


The program listings in this book have been processed through a 
formatting program to improve their appearance and readability. 
The formatter: 


e Aligns statements at the left, avoiding the margin stepping 
that occurs as line numbers increase, 

e Inserts spaces between keywords, 

e Transforms SPACE characters occurring in strings, 1.e. 
between quote marks ("), into asmall black pyramid ( = ), 

e Makes the colon easier to see by redefining it as two small 
opposed triangles ( + ), and 

e Redefines graphics characters to resemble the keyboard 
pictograpnhs and inserts spaces between them so that they 
are readily distinguished. 


Because the redefined alohanumeric and graphics characters 
do not exactly resemble the screen display, you may make typing 
errors until you become familiar with them. To assist you in 
determining which symbol corresponds to a particular key, tables 
of colour and control characters, and keyboard pictographs are 
illustrated overleaf. 

These tables are also reproduced in Appendix D, ‘Printout 
symbols’. We suggest you photocopy or cut out Appendix D and 
Keep it with you for ready reference. 


KEYBOARD CHARACTERS” 


Symbol Key Symbol Key 

In bOOk In book 
+ G CE G ft 
4 G WwW rT G R 
as G oO b+ Gc a 
eae G c a: G oF 
*, G B fe G Y 
na G T R qc + 
= GC ou ee Gc Y¥ 
= Gc a oi G | 
= G @ me G P 
GC G : G - 
I: Gc J CG #H 
a | G@ L &: G kK 
mn GM an | G N 
3: © s ve G ¢€£ 
r Gc A a G 
_q G «x a Gc ? 
L SHIFT L | SHIFT e@ 
r SHIFT Q “1 SHIFT P 
%: SHIFT I 0 SHIFT U 
fe SHIFT K a SHIFT J 
o SHIFT W bad SHIFT Q 
Sa SHIFT + x SHIFT ¥V 
‘\ SHIFT ™M f SHIFT N 
ad SHIFT 2 ag SHIFT S$ 
2 SHIFT X * SHIFT A 
ae SHIFT E — SHIFT D 
- SHIFT * — SHIFT C 
= SHIFT F aa SHIFT R 
1: SHIFT T He SHIFT G 
if: SHIFT B HF SHIFT - 
ZE SHIFT H mi SHIFT ¥ 
4 SHIFT £ + SHIFT = 
ft SHIFT ZERQ 


* These characters are designed to emulate the pictographs which appear on 
the front of the keys. The © symbol is the special shift key located to the left of 
the left hand shift key. 


Unfortunately different keyboard characters can produce identical 
symbols on the screen and printout. If a program doesn’t work, these 
symbols may have been interchanged in a string: 


Gt RL: > 
SHIFT 
SHIFT 8B 


CURSOR LEFT 
SHIFT C 
SHIFT - 


COLOUR AND CONTROL CHARACTERS* 


Symbol Key 
in book 
? CLR 
by HOME 
9] CURSOR DOWN 
e CURSOR UP 
BH CURSOR RIGHT 
tt CURSOR LEFT 
- CTR. oF 
\a CTRL 2 
ry CTRL 23 
hh CTRL 4 
4 CTRL S 
+ CTRL 6 
eS CTRL 7 
ee CTRL & 
R CTRL 2 
= CTRL A 
ES G 4 
F. G 2 
re G 3 
C) G 44 
ey G 5 
al G 6 
> G 7 
as G 3 
Ty CTRL , 
= CTRL 


These characters are designed to emulate the characters which appear on 
the screen. 


TYPING RULES 


In the program listings spaces have only been used as an aid to 
readability. For example, the line 


1a POR “ade tay J 2 PRINT “oS. 7 oR 1 Bea a 3 


would be entered into your computer as 


JMORPOKERALS TSA, ISFRINTVLSTRING," 


Spaces are often used in strings but only enter a space when you 
see a (= ) symbol. This character does not appear on the 
keyboard but is used to tell you when to press the SPACE bar. 


Character Confusion 


In the printouts certain similar characters may be confused and 
entered incorrectly, and cause your program to crash: they are 
the letter | and the figure 1, and the letter O and the figure O. In the 
text, figure zero (QO) is shown cancelled (Q). In listings these 
confusing characters are soon recognised: 


CHARACTER PRINTOUT 
Letter | 
Figure 1 Bh 
Letter O A 
Figure Q a 


If you are modifying programs and entering code from your own 
notes, a number of handwritten characters are easily confused 
unless clearly distinguished. We offer you this guide: 


CONFUSED RECOMMENDED 
CHARACTERS FORM 

Letter Z, figure 2 Ze 
Letter O, figure Q O,@ 
Letter S, figure 5 i 


Letter |, figures 1 and 7 I. 1, 7 


Punctuation may also be a trap: 


e Commas (,) and full stops or periods (.) are not 
interchangeable. 

e Colons (:) and semi-colons (;) are not interchangeable. 

e Apostrophes (’) and double quotes (') are not 
interchangeable. 

e Use parentheses () and not brackets []. Always ensure that 
parentheses are correctly paired: a quick check is to make 
sure that you have as many righthand as _ lefthand 
parentheses in a mathematical expression. 

e The SHIFT key must be pressed when some characters 
(such as! ' # $%, etc.) are entered. 


SAVE Before RUNning 


Do you remember the old proverb? 
Programs typed and SAVEd today, live to RUN another day. 


Be sure to progressively SAVE the programs onto cassette or disk 
as you enter the listings. From time to time the keyboard may lock 
up, especially if you try to RUN a program that contains an error. 
We strongly recommend that you keep SAVEing copies of the 
program as you enter it into the computer and debug any typing 
errors. 


Note Some programs contain loaders to place machine 
language routines in high memory and which may alter certain 
system pointers. If such a program is RUN and crashes, the 
machine language program and the pointers will remain as they 
were even when the NEW command has been entered. When 
debugging programs, SAVE your work before RUNning and 
always reset the computer after a crash to avoid crashing a 
program subsequently entered or loaded. 


CHEXSUM PROGRAM VERIFICATION 


When games programs such as these are keyed in, invariably 
reading and typing mistakes creep in. Youthen spend ages trying 
to sort out where and what is causing the error. Even experienced 
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programmers often cannot easily identify an error and need to do 
the tedious job of double-checking with the book, especially with 
DATA statements. 

To avoid this major cause of frustration when entering the 
programs, there are two short routines in this book which you 
should enter and save before you enter other programs: 


e Merge and 
@e ChexSum. 


The program ChexSum calculates a unique check-sum number 
for each line of a games program, then prints out a table of 
program line-numbers and their corresponding line check-sums, 
plus a grand total for the whole program. 

When you have entered a game program, run ChexSum and 
compare the check-sum table with that in the book. Any 
discrepancies immediately identify a mistyped line. 

Other versions of BASIC have a MERGE command which 
enables you to construct new programs by combining pre-written 
Subroutines or sections of existing programs. To use ChexSum it 
must be appended to the end of the games program it is to check. 
The Merge utility program performs this job and overcomes the 
lack of a MERGE command in Commodore BASIC. (Merge may 
also be used to join other programs — see Appendix C, ‘Merging 
Programs.) 


Saving Merge and ChexSum 


Follow these instructions to enter Merge and ChexSum, and save 
them to tape or disc. If Saving to tape, do not put games programs 
onthe same tape or you will soend considerable time winding and 
rewinding the tape to, first, load your program and, second, to 
load and use ChexSum. 


1 ~=Type in the Merge and ChexSum listings below and SAVE 
them before you do anything else. 
Note Hand check Merge character by character after you 
have saved it. Merge is the only program in the book which 
Cannot be verified by ChexSum. Why? Because you need 
Merge to load ChexSum to verify Merge and, if Merge is 
incorrect, this won't happen. 


Load ChexSum and RUN it. It will first of all process itself, 
generating a table of line sums and a grand total for the 
whole program. 

At this point you may or may not have had a crash. If a table 
was successfully generated, compare your table with that 
given below. If the grand totals differ, check the line sums to 
find the incorrect line. 

Repeat steps 2 and 3 until ChexSum is debugged. 

In line 62029, alter the value of E = 62194 toE = 61999. Save 
a copy to tape or disk. 


Note This is your working copy used to check all the other 
programs in the book. Make sure you don't confuse it with 
your initial version, which is used only to verify ChexSum 


itself. 


MERGE PROGRAM 


12a 


POKE 55,2@23PQKE 56,63¢3CLR 

FOR 1716334 TO 163231+34¢READASPOKE 1,ASC=CH+ASNEXT 
IF CC>4Q94THEN PRINT “CHECKSUM, ERROR " 
7 3TOP 

DATA165, 43,141,238,63,165, 44,141, 239,63,56,165,45,2 
33,2,133,493,165 

DATA4E, 233,090,133, 44, 96,173, 238,63,133,43,173,233,63 
2,133,449, 96 

NEU 


CHEXSUM PROGRAM 


62000 
62005 
62010 
62011 
62015 
62020 
62120 
62130 
62135 
62136 


62137 


T=PEEKC62)82564PEEKC 61941 
INPUT “F ROMALINE as 
INPUT "TO ,PRINTERa 
IF QSCo"V "THEN 62020 

CLOSE S$ OPENS, AS CMDASPRINT CHRSC1);CHRSC129>) 
LINK=PEEKC 4498256 +PEEKC 43936 =62194 

T=LINK 

LINK=PEEKCT t1>#256+4PEEKCT > 
LN=PEEKCT432#2564PEEKCT#229¢1IF LNCFROMTHEN 62120 


";FROM 
CY 7N) "30S 


IF LNDETHEN PRINT SPRINT “TT OT AL = ";,CHSCLOSESS 
END 
SS=STRSCLNISL=LENCSS$)-ASSS=MIDSCSS$,2,LI*MIDSCO LD 2 oon 


pls OLD 


~yH & & 


62138 PRINT SS; 

62140 CS=02N=03C=2 

62150 FOR P=T#+43 TO LINK-2¢PK=PEEKCP) 
62160 IF PRK=143THEN P=LINK-2¢3GOTO 62190 
62165 IF PK=34THEN C=CC=0) 


62170 IF C=9ANDPK=32THEN 62190 

62180 IF PK=137THEN N=N#1¢CS=CS+*+¢C2030RN)>5PK=164 

62185 N=Nt1-CS=CS+CPKORN) 

62190 NEXTSCH=CHtCS 

62192 HS=STRSCCSISY=LENCHSDSHS=MIDSCHS,2, YI SHS=MIDSC',. 4 
aw a “71, 97-CYHADIFHS 

621949 PRINT "= 4.2 "“;HS?GOTO 62120 

62196 REM 


ChexSum Tables 


mn 
ine 
Q 
mS) 
'Q 
pe) 
x) 
mn 


= 124 2138 = 2067 62160 = 2372 
Be@AS = 132e 62135 = 3540 62165 = 1434 
bebtn: = 11s B21326 = 2497 Be170 = 1554 
Beait = Lee 62137 = 4234 62120 = 2320 
Sebi = 2he E2138 = 332 GB241R5 1262 
6B2A20 = 252 621i4do® = 1142 BP4AQA = {AMAL 
62120 = S77 BeisA = 2251 GBP1APD = 4ARAP 

62194 = 1247 

TOTAL = 44837 


Using ChexSum 


Tne greatest problem encountered when typing in programs from 
a book Is errors made by the user. Most of these are picked up 
when the computer responds to the RUN command with the 
Syntax Error’ message. The user then has only to LIST the line and 
compare it with the line in the book. Unfortunateiy, some errors are 
more subtle and not fatal to program operation. These types of 
errors will cause the program to run, but incorrectly, and the 
computer will not be able to detect them as such. 

Checksum is a special program which generates a unique sum 
for each line in a program and a grand total of all line sums. After 
each program listing is a table of check sums. You need only 
compare the numbers in the ChexSum table for each program 
with those generated by ChexSum. If two numbers differ, check 
tnat particular line. 
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Load and run the Merge program by typing LOAD “MERGE” 
(for tape) or LOAD “MERGE” 8 (for disk), and then entering 
RUN. 
From your games tape or disk, load the program you want to 
verify. 


Note Always SAVE your program to tape before running 
ChexSum. 


For the first program, enter LOAD “BLOCKADE ’ for tape or 
LOAD “BLOCKADE”, 8 for disk. Do not RUN the program at 
this point. 

Enter SYS16331 to protect the first game program, 1.e. 
BLOCKADE. 

Load ChexSum by entering LOAD “CHEXSUM" for tape or 
LOAD “CHEXSUM", 8 for disk. 

Enter SYS16355 to merge the game program BLOCKADE 
with ChexSum. 

Enter RUN 620090 to activate ChexSum. 

The program will respond with the prompt: 


LINE NUMBER: ” 


Pressing the RETURN key at this point will cause ChexSum 
to start with the first line of your program. Entering a line 
number will start ChexSum at that line. 
ChexSum next prompts with: 

PRINTER (Y/N) ? 
A‘Y’ will send the ChexSum table to the printer or an ‘N’ will 
send it to the screen. 
Check your grand total with that in the book. If they differ, a 
line has been typed incorrectly. Compare line numbers unt 
you locate the bad lines and then edit them. 
Repeat steps 6 to 8 until the games program is debugged. In 
steo 6, enter the number of the first bad line to avoid 
ChexSum verifying the games program from the first line. 
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DEBUGGING HINTS 
Limitations of ChexSum 


ChexSum is not entirely foolproof and cannot detect two errors 
which give a (Seemingly) correct output: 


1 If your grand total is correct but the program crashes, two 
lines have been typed in incorrectly and, although their 
individual line sums are incorrect, they cancel. Please check 
that all line sums are correct. 

2  Atcertain column positions in a statement line, a full point (.) 
and a comma (,) may be interchanged and yet still give a 
correct line sum. When occurring in a DATA statement a (.) 
for (,) substitution will cause two adjacent integer numbers to 
be read as a single real number and will usually generate an 
‘Out of Data’ message. When either possible substitution 
Occurs IN a program statement, a ‘Syntax Error’ message will 
be generated. 


It is impossible for ChexSum to completely eliminate typing errors 
— Itmerely reduces the probability of them occurring to a very low 
level. 


Pointer Corruption 


Sometimes a program will run incorrectly even when thoroughly 
debugged by ChexSum and by hand. In this case there are two 
possibilities: 


e The program is wrong — please write and tell us (see 
Appendix E, ‘Reader Feedback’). 

e Aprevious run has left system pointers corrupted and they 
continue to crash the program despite the use of the NEW 
commana. Always reset the computer after a crash to avoid 
this problem. 


Blockade 


CLASSIFICATION: Evasion 
In this fast-paced game, your goal is to build a wall in front of your 
opponent so that he crashes into it. Only by quick maneouvres, 
either left or right, can you avoid the walls. May you outlast your 
opponent. 

The controls are: 
Player 1, Q move left, Z move right; player 2, | move left, P move 
right. 


PROGRAMMING SUGGESTIONS 


Add a computer opponent. Give the computer limited (or perhaps 
random!) intelligence when making a decision to turn left or right at 
each step. 

Add obstacles to the board. Set up a routine in the board so that 
non-blank characters on the field will act as obstacles. 
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PROGRAM 


Variables 
CH Wall characters 
CX, CY Corner characters 
X1, Y1 Player 1 co-ordinates 
X2, Y2 Player 2 co-ordinates 
P1, P2 scores, player 1 and player 2 
D1, D2 Direction of players 1 and 2 
Al, B1 Player 1 step value 
A2, B2 Player 2 step value 
W Winner 
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210 
220 


Initialisation 


OLORA, ASSVOL &FP1=03P2=0 

BiB] BL BD BI BE BE O'S DITICHC1,1993CHC1,09=6495C 
eDIMICKCSISDIMCPYC3) 

FORCAI=HRALAS5F CK C!]I=L193 CX C39=112 

SCV CAI=HLOISCYC]2d=125FCVC39=110 


—? 
BS=""e npn meme numa mw meme eae eae mee eee eee 
ee 
ae ae ee ee 
Ls="2. 2. WE 
»yH -» > mM. ew eae ee ae RR KR KR HB KR & & HBA HAA 


ar ve 
» a» a» a az a» » az a » x» a a a a E: a a 


COLQOR1,16,4¢PRINT "RWW WW. 2 ow TREN ow Tow ow 

PN A. REN 2 he Tew ek AEN a TEM a PH aw 
1 

PRINT 2 «2 FS 4 2c sw wR eh ack owe PSS 
ao FH dt nakh ea. Esa Few aw wh” 

PRINT "., 22 ® S37, FSB, Me 2 ak SS - i’ 
aanoa*X,.2* 2 28 S84, BS ean O” 

COLOR1,9,4¢PRINT SPRINT SPRINT “2 «2 a2 2 wa a2 ao eo ow ow 
i ie ae Se ON OF OR eS 

PRINT “SPRING “% & 2-2 2 ex ee PRAY ER Ae ee 
ea iP Eo ROW EB OR gee 
PRINT PRINT "{. LE F T a« ao 
fat Oe, tae es 

PRINT SPRINT "2 RIGHT. ?4 «2 wa oa © 27 ww wow mw ow 


4 
> 
> 
> 
A 
© 
V 
> 
> 
> 
> 
> 


- o™\ of 
es ee ca OS, Ee 


COLORI,7,4$PRINT SPRINT ¢PRINT SPRINT "2 a2 a2 «2 a H 
IT .zC RETURNODO,ATOACONTINUE.. .- 
PRINT SPRINT “x a wo cd ewe ae ER SE Oa 1 Ow ES 
Di cigt. Soe 

GETASSIF AS="""THEN 160 

IF AS="E "THEN PRINT "WG BP BIT HE wzENOD. . . 
"SEND 

IF ASCCASICOASTHEN 160 

COLORA,3,3¢PRINT "ts 2 2 wa wa ma mom mamma ema awew ea B 
L QC KAD E "SPRINT SPRINT SPRINT "2 a fe "7 B95" 
COLOR1,3,32FOR I=1 TO 2O0tPRINT LSSNEXTSPRINT “os a 38 
Wo", BS, "am, 

COLOR1,82PRINT "BHM 2 «24 PLAYWYER,A A" 
COLOR1,15,2$PRINT “EY BP Bt BF BD BD Bt BD BY Bi Bd Bs Bi Bi Bi 

Be ee ee 

*442=372V1=122 V2=14$ A1=12A2=-12B1=02 B2=0701=02De2 
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24a 


440 
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COLOR1,2¢PRINT "SMM "SF XS5"%. 2 2 o ow DE GP 
45XS;"O EE eee. 2. ow ow ow a Pe 


Get Player Input 


GETAS?SC1I=CHCARBSCA1I), ABSCB1953C2=CHCABSCA2),ABSCB2)) 
eS=StisiF S=2THEN S=0 
KA=KAFALS K2=K24h2]5 VI=AV1ItB1sv2=V2t+B2 

IF AS="Q "THEN C=B1SB1=—-ALSALH=CEDA=INT CC CD11) /4- 


INT CCD1#19 74) 94)4SC41=CXCDAD 
IF AS=""# "THEN C=B2$B2=-A2¢AZ=CED2=INT CCC D241) /4- 


INTC CD241) 64994) 3C2=CXCD29 

IF AS="Z "THEN C=-BiASB1=ALSAL=CEDI=INTCCABSC CD1+3> 
“42-INT CABSCCD1439 64999849 SC1=CYCDID 

IF AS=""+ "THEN C=-B2¢B2=A2SAZ2=CED2=INTCCABSC CD24+3) 
“4)-INT CABSCCD24+3) (4999*4)3C2=CYCD2> 


Collision Detection 


IF PEEKC307T24+940%V14#X12CO32THEN AL1=02B1=09P2=P2tisW 
=23X=K1FVY=VY¥1IFSGOSUB 4003GOTO 160 

IF PEEKC30724*40*Y24*X290¢C>32THEN A2=O02B2=O0FP1=P1it+1isW 
=129X%=X2e3v=V72>GOSUB 40073GOTO 160 

GQSUB 359 

GOTO 2590 


Draw New Bricks In Each Player's Wall 


POKE 30724+408V14+%1,CISPOKE 20484+40"V14K1,119 
POKE 3072440®V2+K2,C23POKE 20484+40872+xX2,46 

IF S=Q@THEN SOUND 1,4004+20D1,5 

IF S=ATHEN SOUND 1, 320+20%D2,5 

RETURN 

SOUND 3,85@,2@Q2SOUND 3,800,100 

FOR [=1 TO 1O03POKE 30724+408¥tK,102¢POKE 2048440" 
#%,963FQR J=1 TO 2OSNEXTI 

POKE 320724+908Y4th,2309POKE 204854+40"Y4+*K, 4I49FOR J=1 
TO 20 SNERT I 

NEXT I 


Determine Winner 


IF W=1THEN COLOR1,&83PRINT "HEH W..a.PlLAYE Ra 


4 =n as 


450 IF W=2THEN COLOR1,15,2$PRINT "S30 & © BS BE BI BS Bi BI BI BI 
Bl PLB) Bt Bl Bl BS Bl et BP et BP Pe BP BP BPP LAY ERs 2 


460 COLORA,2¢PRINT “SBE SG X$5". 2 2 wo ow DP 
14;XS5;"U BBP BP BP. 2. ow ow oo SE Pe 
47a RETURN 


ChexSum Tables 


1@ = 2228 17TA = 2259 33@ = 299 
20 = 43284 180 = A372 348 = S26 
3@ = 2204 A9@ = 4121 35@ = 3105 
4a = 2916 2AaA = 2324 26a = 2055 
5@ = 6342 218 = 1453 27a = 142843 
6a = 267@ 228 = 2559 220 = {1244 
708 = 6651 PBA = 52623 Baa = 143 
RO = 4821 24a = Q35xz 40a = 1419 
30 = 5645 25a = S52R0 410 = 4997 
1Aaa = 2784 260A = R267 420 = 4adg7’ 
4119 = 2292 27a = £412 43a = 206 
12a = 1292 PRA = 6374 44 = 2432 
438 = 2051 PaA = 7A2S5 45a = 3738 
14a = 4049 BAA = 69R0 46a = 4358 
150 = 1745 21a = 65R5 47@a = 143 
16@ = 1214 220 = 6593 TQTAL = 160175 
LZ 
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Zapp 


CLASSIFICATION: Shoot Up 

Control your gunsights to target the attacking pods: fire either 1 or 2 
zaps to destroy them and to protect your cities and weapon 
emplacements. You have only limited energy reserves, SO zap 
sparingly. You receive bonus points for remaining energy. Be 
prepared to zap heavily when later waves of high-tech pods swarm 
in. The game is over when all cities are destroyed. 

Controls are: 
Q up, Z down, | left, P right, SPACE fire. 


PROGRAMMING SUGGESTIONS 


Create a new type of pod — one that must take more zaps to be 
destroyed, or perhaps one that can split open to drop more pods. 
Increase the speed of the game with each level. Give some special 
pods more intelligence — have them either home in on the gun 
emplacements or on the cities. Give bonus cities for surviving 
each wave. 


ae, 


PROGRAM 


Variables 
NM Pod co-ordinates 
E Energy 
LX, LY Co-ordinates of sights 
G% Gun damage 
C% City damage 
LV Level 
oC score 
7 speed of pods 
MV Gunsight step distance 


20 


Listing 


Select Graphics Mode and Initialise 


1A DITINIT. C3, 299 CX=T73T=O2 G4=33 SCK=OSLVH=HASLKX=TISLYVY=79% 
GRAPHIC4,14 

2a COLORO,2,23COLORG, 1; COLOR, 8¢COLOR2, 3,43 COLOR3,15,5 
-VOL 8 

3a GCQSUR 400 


Get Player's Input, Fire Remaining Zappers 


Draw Gunsight 
40 GETASST=T+12GOSUB 19041F T=6-LVTHEN GOSUB 220 
50 IF AS=""I ""THEN GQSUB 2002LX=LX-741F LX<C4THEN LX=4 
6a IF AS="P “THEN GOSUB 2002LX=LX#+74IF LXDASSTHEN LX 
=155 
Ta IF AS="Q "THEN GOSUB 2004LY=LY-SSI1F LYCSTHEN LY=5 
SO IF AS="Z “THEN GOSUB 200SLY=LY49¢IF LYDI47THEN LY 
=147 
9A IF ASC>", “ORGXY=OTHEN GOTO 40 


1AaO IF CG“YAND29=2THEN DRAW1, 3,148 TO Lxk-2,LY 

410 IF CGXYANDID=ATHEN DRALM1,156,148 TO LkXt2,LyY 

120 DRAG, 3,148 TO Lx-2,LVYeDRAWO, 156,148 TO Lxt2,Lve 
SQUND 3,1000,15 

130 FOR F=Q@ TO 3SIF NIMCI,@C=OTHEN 1690 

140 IF NIMCI,@CLX-3SORNITZ CI, OBIOLK*+30RNIMCI,13CLY-SORNIT 
CI,L13>LY+5STHEN 1690 

15a SQUND 3,900, 253SC%=SC%+ELVESINIZ CI, O2=-ASCIRCLE2,LK, 
LW,2,49K“=Ku4t41 

16@ NEXT I 

178 IF K%=LVSGTHEN LVY=LVF1eSCNCLREKX=OFPRINT “Le WY WW 
UUM eNO HNUeoeUweUeoUuuwMscoaorReE ";SCx%-% 
GQSUB 4aa 


Move Pods, Check If Pods Hit Cities or Zappers. End Game 


1zEQ GOTO 40 

196 Bi<=23GOTO 210 

2AO B’.=0 

210 DRALIBY,LX,LY-S TO LX,LY#54¢DRAWB%,LX-3,LY TO LX*+3,LY 
ZRETURN 

22a FOR I1=@ TO 3 

230 IF Nfhcl,@SOTHEN 260 

240 IF RNDC19>.O8%LVTHEN 3990 

250 Nli%c1, @2=INTCRNDC1A#1404+5 9S NITA CI, 19=9 
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IF RNDC19C.3THEN NIMCI,29=INTCRNDC19#11-5)D 

IF NIT CI, @34#NIMC1,2>0C5THEN NI%C1,29=INTCRNDC19#6D 
IF NIM CI, O4*NMiC1, 2. > ASATHEN NM%CI,22=-INTCRNDCAD 
ED 

NET. CL, Q2=NIKCT, Q@4NMZcl, 2.ENM“%cl,1>=NIMNCI, 1945 
DRAWS, NIM%CI,@>,NIM%CI,1> TO NIH C1,@2-NM“CI,2>,NM“CI, 
LS 

IF NIMCI,1>°CAS4THEN 320 

IF CCHANDLDSBANDNI%¢C1,0@2>24ANDNIT<CI1,@2C56THEN C%= “ 
~17D%=@3GOSUB 51@ 

IF CCKAND2 DS Q@ANDNITZ CI, O2>64ANDNIT<C1,02C96THEN C%=C% 
—-2s0%=15GOSUB 51a 

IF COXAND4) SO@ANDNI1IZ C1, O@2>4O4ANDNIM“ZCI,@2C136THEN C% 
=CX%-42D%=23G0SUB 510 

IFO ONIT.CT,@2CA13THEN G%=CGX%AND1I2*¢CHARL,1,19, "se " 

IF ONITZ.CI,@>1447TTHEN GX%=CGXAND29*CHARI,38,19,"" "* 

TF CxX=@THEN CHARI,12,12,"G ANE ,OV E R “4END 

IF NIM CTL, AIDASSTHEN NI%CI,@)=-4 

NEXTIST=O3 RETURN 

IF CGXAND2>=OTHEN 430 


Draw Screen 


DRAIW3,0,148 TO 3,148 TO 6,151 TO 12,151 TO 12,154 
TO 8,154 TO O0,148¢SPAINTS,3,154 
DRAWS, 159,148 TO 156,148 TO 153,151 TO 447,154 
TQ 147,154 TO 159,154 TO 159,1484PAINT3,156,1590 
IF CGXAND1I>=OTHEN 450 
DRAWS, 159,148 TO 156,148 TO 153,151 TO 147,151 
TO 197,154 TO 159,154 TO 159,148¢PAINT3,156,150 
FOR I1=@ TO 231F CCXANDC2I12>9=O8THEN 500 
DRAW2, 254+1#40,154 TO 25+1¥40,159 TO 554+1*40,159 
TO S5#+1*40,154 TO 53+1*49,154 
FOR J=@ TO 33DRAW2 TO 5S34+1*490-J"7,146 TO 484+1"40-J 
*7,156 TO 484+1 440-37, 154 
DRAW2 TO 464+1*40-J*7, IS4SNEXT 
PAINT2, 32+1%40,157 
NESTISRETURN 
CHARI, 7#D%410,19,"# # # # # # "“SSOUND 3,600,20% 
RETURN 


ChexSum Tables 


12 = a@a55 1208 = 476 asa = 2742 
20 = 32054 198 = 949 360 = 2857 
3@ = 298 20a = 33 ¢ 270 = 2404 
4a = 2717 218 = 4134 380 = 2122 
5a = 2199 228 = 655 2930 = 791 
6a = 3413 238 = 421@ 4aa = 1170 
76 = 32716 248 = 1506 4iA = 4163 
RB = 3430 250 = 2754 42a = 5367 
a0 = 4955 260 = 2849 420 = 1169 
4aan = 7F4A5R 27a = 3286 440 = S367 
410 = PBAL 2Rea = 3568 45a = 2261 
42 = 2916 238 = 3479 46a = 5613 
130 = 2102 3aa = 3705 47O@ = SR75 
149 = 5785 34Q@ = 1313 42a 1394 
45a - 4962 R220 = 4561 49M" = d2i2 
16a = 206 338 = 4567 5a = 407 
17Q = 5469 340 = 4672 512 = 2574 
TOTAL = 145482 


23 


24 


Unscramble 


CLASSIFICATION: Logic COLOUR ILLUSTRATION OBC 
A four-by-four matrix of numbers ranging from 1 to 15; 1 Is blank 
and 15 are scrambled. You have to re-organise them into 
sequence from 1 inthe top left to 15 inthe bottom right. Use| and P 
to move the blinking cursor, then hit the SPACE bar to shift the 
pieces. 


PROGRAMMING SUGGESTIONS 


Increase the size of the matrix for a more challenging game. 
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PROGRAM 


Variables 
N Board array 
NZ$ Tile patterns 
Kok Cursor co-ordinates 
Miles ¥ | Empty square co-ordinates 
26 


Initiatise Game; Display Title and Define Tiles 


COLOQORO,2&e+COLORA,22VOL & 

DITINC3, 294DIITNZ$C 15> 

X=OSV=AeC2s=""sC3g=" 

EWM OM we wr We @ WE WE © ake 
HEM WHE EE WHEE @ Wa UH wn" 
CNS=", 2 oe aU ti,.,wdii. OW. 0. 0 a 
1H. Ht. OM. OW, OW, 

COS="8 4 OG © “SCRS="BE BD BL BI BI BF BI BI BI BI “SCSS='""¢ 
===, OH WW © OG © Ub 4: —- Pfui ht= 
HYFON KRONE OWE " 

BOS="9 WHY WWW "SBRS="BI BI BD) 2) BB) Bl Bt Bt Bl Bl op 
COLOR1,3,3°3PRINT "Ri OPP wre Tres es 


2 PMA CAM ND CAN TAN PEN wear =e" 

PRINT "BEEP BPR GE JGR GE NGE GS = Si ab. 2.2 Fr #4 rFe4d 
hos 4c F= 4 Ea kee 

PRINT "“"B) BL BD BP CS = 4; ha Se 2S ae ee ae 
a Abe eke te. ee 


COLOR1,9,423PRINT "') Wt) BF OF Bt BE Bl Bb) Bt Bt Bl Bs Bi Br ON 
STRUCTION S " 
PRINT "*t) (4) OF BF BF BI Bl Bi BI 
OCR 2 Ae Eb Por 

PRINT "") Bi BS BI BE Bl Bi BSB 
R.zaRIGHT" 


BP” I 7 ww ow a CUR S 
Ri 
PRINT "te BF BD BI BI BL BE RPP Oe wae me CURSO 
Bi 
Bi 
e! 


i P sg az a a az C U R S O 


Rg Uh Pe 

PRINT “t] BF BS BI BF BE Bi BIB 
R.azaOOWN '" 

PRINT "" () Bl OF BF BD BF BI BI 
, «eb Et eS 

PRINT "td  ( BF Bl Bi Bt BI BI 
x 1 - Ore 5S TA RTD” 
GETASSIF ASCCASICDIA3STHEN 180 


"27 weaoaoClOurRrsoa 


NZsC@o=""§9 Ww. ow ow Ow wk a we 
NZ$C41>="e Wb. 2 ao OHH. 1 wa 
NZ$C29="9 Wo. «2 wo WUE Hw 2 QR | | Oe | oe 
NZ$C390="e Wo. 2 2 OO. Sa. 
NZSC40="$ Ww. «2 2 DO. 9 ea 
NZSCS0="HW 2. ow. ow DU. 5S. WU 
NZS(60="5 YW. -. 2 OW. 6. UO we 
NZSCTO=""5 Ww. wo ow DU. 7 Oe 
NZ$CSO="—5 ow. 2 ow WP. 8 2. Ob 
NZSCS9="Rib. a2 ao OH. 9S. Da 


2/ 


NZ2S$C100="% IQ. aw ow Wt 8 nw Ow we 
NZ2SC119="O WW. .2 a2 Wt 1 iw Wb 
NZSC120="H iW. . oa lami 2. SHU. wn 
NZ$C130="H WO. 2.2 ow Wt 8S. On ow 
NZSC190="= Wo. «2 ow Ot 4a a kk” 
NZSCI590="" Ww a2 ow Ct Sw. Ww 
FOR I=0 TO 32FOR J=0 TO 34NCI,J=1¥"A*IJSNEXTJI,I 
PRINT "ty ( BF OF BF BT BI Bl Bl Gl BI Bl Bi el el BE UN S CR 
r1 BLE § "8GQSUB 550 


Shuffle Tiles Randomly; Draw Cursor 


K1=O$ VI=O% X=O8 V=O3 Z=204+ INT CRNDCOD825) 


FOR J=1 TO Z$%XK=INTCRNDCO)*4)9GOSUB 6203 Y=INTCRNDCO) 


*%4I)2GOSUB 6202NEXKT 


COLOR1,3,32PRINT CDS$;CRS;"BI W °° ;C2$,;C3$;,;CS$,"H “SX 


=O3Vv=0 


Get Input; Move and Draw Cursor 


GETASSIF ASCO", "ANDASCO"™P “ANDASCO"I “ANDASCD"Q 
ANDASCO"Z “THEN 400 

IF AS=", “ANDCX1=XORY4=V2THEN GOSUB 628¢GOTO 400 
PRINT CD$;CRS;"W UW ";C2$;C3$;,CX$ 

IF ASCO", “THEN SOUND 1,400,7 

IF AS="P "THEN X=X#1¢C2$=C2$4"R MBE BE "SIF X>3 
THEN X=@SC2$=""" 

IF ASCD"] “THEN 480 

M=X-4$1F XD=@QTHEN C2S=LEFT$CC2$,X*4)¢GOTO 520 
M=3¢3C2S="BF OF BP EE BP BB) et) eB Bi By "SGOTO 520 

IF ASCONQ "THEN 518 

W=W-1$IF Y>=OTHEN C3$=LEFTS(C3$,¥*4)¢GOTO 520 
Y=3-C3s—"HYuUUUHMNHHMNUWMNUueUeo” 

IF AS="Z “THEN W="412C3$=C3S4"W WWW “SIF v>3 
THEN W=OSC3S="" 

COLOR1,3,3¢PRINT CD$;CRS;" BE ';C2$;C3$;CS$ 

GOTO aaa 

END 


Draw Board and Tiles On Screen 


COLOR1,41$PRINT CDS$;CRS;'"6 "ZTPS5"S!i OH 'GSS; 
PRINT CD$;CR$;"W “;SS;'°%S "ZTPS3 8 5 

PRINT COS;" Www"; 

FOR I1=@ TO 3¢PRINT CRS;"B) BE ';2FOR J=0 TO 3 
PRINT "OO ";NZ$CIed4J3> 5° 4 “NZENCL,J=1e44J 
NEXTJSPRINT SPRINT $PRINT $PRINT $NEXTI 
RETURN 


620 


710 


Shuffle Tiles 


IF X1=XANDY1=YTHEN RETURN 

IF WCWATHEN FOR [=VWi-1i TO WY STEP -41ENCI41,K=NCI,X) 
*~GOSUB 6803 Y1=VENEXT 

IF WOWATHEN FOR IT=Yitd TO YWENCI-1,%53=NCI,XDS 

GOSUR 6904NEXTSVY1=VYeERETURN 

IF XCXATHEN FOR IT=X1-1 TO X STEP -A1SNCY,I1449=NCY,19 
7GOSUB TIQ@ISNEXT? X1=X? RETURN 

IF XS>XATHEN FOR IT=H1i4+1 TO XSNCY¥,1I-19=NCYW,199 

GOSUB T2OQSNEXRKTS KL=H=KS RETURN 

PRINT BDS,BRS,;NZ$CO)2COLOR1,1° RETURN 


Shuffle Down 


Z2$=BDSSBDS=LEFTSCBDS,1¥#44+7)>GOTO 700 


Shuffle Up 


2$=B0S3BDS=BDS+4""W W w) f°" 
SOUND 1,10908-5S1I,23GOSUB 6703PRINT 2$;BRS;NZ$CNCI,X 
2 RETURN 


Shuffle Right 


ZS=BRSTBRS=LEFTSCBRS, 1*%44+1292G0TO 730 


Shuffle Left 


ZS=BRSZBRS=BRS+"'B) BI BIB) 
SOUND 41,97045%1],2*GOSUB GB7OSPRINT BOS;Z2S$;NZSCNCY, 1) 
ISRETURN 


2 


ce) 


ChexSum Tables 


1@ 
2a 
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AATA 
11@@ 
177@ 
12924 
4369 
36a3 
A522 
6927 
SE57 
6244 
24493 
ARB 
Laa2 
17A1 
1832 
2194 
2257 
17093 
213% 
2etyt 
24155 
2285 
2285 
ean 
24161 


2235 
2277 
2297 
2351 
2354 
2349 
2352 
2347 
235a 
3185 
2195 
3202 
9131 
3259 
4985 
3@14 
45]3@ 
1525 
4019 
1124 
3425 
1849 
1133 
2422 
4116 


4014 
2228 

529 

429 
25R7 
2A9R 

624 
2142 
2495 
41354 

1423 
4477 
4203 
4594 
5020 
4522 
17023 
2745 
1429 
3286 
PRA 
45223 
A212 

2A2307 


SAM 


CLASSIFICATION: Shoot Up 
You are the commander of a ground-based guided-missile 
launcher. You launch surface-to-air missiles at attacking enemy 
Craft flying overhead, and try to intercept and destroy them. The 
smaller and faster the target, the more points you earn. 

Use Q to move the missile up, Z down, | left and P right. The 
SPACE bar will launch a new missile and abort one currently 
zooming about. 


PROGRAMMING SUGGESTIONS 


Have the enemy shoot their own anti-missile missiles — you must 
evade them. Have the enemy drop paratroopers who will try to 
overrun your emplacement. 


31 


PROGRAM 


Variables 
DR% Direction table 
D Current direction 
SC screen memory 
CL Colour memory 
MX, MY Missile’s (X, Y) co-ordinates 
xX, Y step values for missile 
TG Missile collision 
EX, EY Enemy (X, Y) co-ordinates 
OX, SY Enemy missile (X, Y) co-ordinates 
S score 
32 


23a 
240 
25a 


26a 


Draw Title Page and Initialise Game 
Draw Screen and Start Game 


VOL 2S COLOR@,14,63CQLOR4,63SC=20722¢CL=28048 

DIMOR* C7, AISOIMMNCKCTOSERK=-19LVUH41 

FOR T=@ TO TEREADDRY CIT, GQ SREADDRZACI,ASNEXTSFOR 1 
= TO ?SREADMC“CIOSNEXKT 

DAT AS 63 he eg Sy hy he hs Hs Oe Ha te Oe te 2 ees. (3, 305 
tipetsy (34 2383 0% 

PPINT "ll 4 Ww" 


BRT a a a a a a a 


F 
aE 
é 


H t 
ie 


eee 
PRR ONT om le ae ca “ve ak ect a ee, aa Se ce a ee a es ee 


a ae ‘f; f es 
°—: mm 18: 7a: mm 7b: 


PRINT "“, 2 aw ew ew we eel Oe Ele lew Ie 
We Se 2 ES ge ee 

® 8: 
PRINT wert aa A ame & & « & TST wp «A aL: ya aa % { ~ «& ! ~n & & 


PRINT a a ee Oe Fe Ba BM a ww eH 
a a. e" 


yh ye & yy 


PRDNT “g@: i 2k ee we et ee eS EO we SOON TRO 
an = a 

PREP SOR ASM for a as ak a a XS BO a a OE OR Ne SS 
oats UE? ae Be OR i 

Pore UP ae ae Se ak as a A Oe I A RON ee 
jE “as Bk Ae aa Tt 

PROD ONY Go ce a Ge ak ~ SORA OE BOACR AUF Ob RUE SS 
ge EE de ee Se oe sty cE 8 

PBR SOAS: le tae ca ee at a ae okt ce a RE RN ee POO 
ae GO De = 

GETASSIF AS=""THEN 168 

IF ASCCASICOASTHEN 168 

PREM 8 GE sab ge ee ae ers as, Sa A ce CO 
GOSUB GB7TASK=OFN=LVUESIPCH=0 

FOR 1=Q@ TO 223POKE 4O32+1,1A49POKE 3SOO84+I, 57S NEXT 
POKE 4058,853POKE 40@51,663PQKE 4052,73 

Mae sMtwy=eesD=2erFsa"" 


Get Piayer’s Command, Move and Fire Missile 


Generate and Move Enemy 


GETASSTN=TN#4 
IF ASD", "THEN 288 

SOUND 3,75@,5¢SOUMND 3,765,5¢SQUND 3,788,5¢SOUND 3,7 
a5,1@ 

PT=PT-14PC=PC-412GQSUB 67a 
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PQKE SC#4Q9MY#MX, 32¢IMW=222MX=192D=22POKE SC#4Q2My 
4MM,MCKCDISFS="F 

IF FS=""THEN 380 

POKE SC#4Q2IMY+4MX, 322POKE CL+40%"MY4MX, 2 
MX=MX#DRCD, AS MV=M¥4DRYCD, 1) 

IF MXCQORMX> 29O0RMYCZORMYD23THEN 222 
TG=PEEK (SC 4 4Q2MY 4Mx) 

IF TGC>32THEN GOSUR S6@*4GOTO 230 

POKE SC+4Q2%MY4tMX, MCE CDDSPOKE CL4+4Q2eMv4IX, @ 

IF AS="I “THEN D=D044121IF D>7THEN D=@ 

IF AS="P “THEN D=D-12I1F DCO@THEN D=7 

SOUND 41, 1@@Q-ARSCEX-MX>-ABSCEY-MY>, 3 

IF TNCG-LYVTHEN 230 

TN=@41F EX>=AQANDEXC=39THEN 430 

FOR I=4 TO 40*SOQUND 2,900@-5%1,4*FOR J=1 TO 4*NEXTJ¢4 
MEXTI 

EX=@2ED=12I1F RNDC@)>.STHEN EX=39%ED=5 

EV=INT CRNDC@)*84RNDC O88 42) 

POKE SC+4axEY+EX, 32 

IF EV#DR%CED, 1) C3THEN EV=32ED=INT CRNDCO)#34+4)¢% 
GaTO 51a 

IF EV#DR“%CED,1)>23THEN EY=234ED=INT CRNDCO)*5)* 
GOTQ 52a 

EX=EX4DRY%CED, 0) SEY=EY4#DRYCED, 4) 
ED=ED4INTCRNDC@)%*3)-41 

IF EXCQTHEN EX=412SED=INT CRND(O*446) 

IF EX>39THEN EX=384ED=INTCRNDCO)*3542) 

IF EDC@THEN ED=ED+47 

IF EDS 7THEN ED=ED-7 

EG=PEEK(SC+40"EY4EX)D 

POKE SC+4Q*EY+EX,654POKE CLt+4QnEVYtEX, 49 

IF EGC>22THEN GOSUB 560 

BATO 23a 


Collision Detection and Scoring 


POKE SC#+4Q3MV4MX, 422 PTHPT +¢S5eL VALS PCH=PC+eSeLV 41 

FOR T=1 TO 253SQUND 3,1000-S!I ,S52NEXRT 

FOR I1=6@ TQ 1273POKE CL 440th tM, ISENEXT 

FS="""SPOQKE SC#4ORMY FIX, 325 KH199MVH229EK=-ASK=Kt 
IF KCONTHEN 670 

FOR I1=1 TO 20+2eLVSSOUND 1,60041#5,5°SOUND 2,900-4 
“M7 ,53FQR J=1 TO SINEXTISNEXTI 

PRINT "s WO OW WW BEEBE EVEL, “;LV;". C O 
Pie lose FB Ds. 

PRINT “i) 2. «2 a2 a KF EL AZRAT I Og a2 ",10Q%PC 
SCNMIAMLVIGT A 

PRINT "I WM .2 2 2a a RETURN,ATOACONT I 
N UE "™ 


it 


65Q@ LV=LV4#isiF LYOSTHEN LV=5S 

660 PRINT "HW ..M SCORE .{& ";PTSGOTO 160 

670 PRINT "HW ..2M@SCORE,& 22 a aaa ll 
Wi “ZS; PTSRETURN 

ChexSum Tables 

10 = PASS 240 = 1988 47a 2 

20 = 2292 250 ZERT 4a 2 

3A = 4M29 260 41939 43a = 

4n = Be 1 270 SER4 SA = 

Sa = ars 2EA = RGR 518 = 

6a = 2299 2AM = ZAR 520 = 

7A = 2279 BAM = 2541 53a 

ZA = 24843 210 = 221A 54a = 

ae = 2556 320 = 1768 550 

LAG = 3365 22a = 14868 SEA 

110 = 1732 24% = 3249 S7e 

120 = 2443 259 = DPRAIL SLA = 

1300 = £345 BEA = 2267 Taa = 

i400 = 2395 270 = 2672 BAM 

138 1986 R2Q = 1242 610 

166 1214 29M = 2358 620 

17e = A278 AAA = 3350 G38 

120 14234 410 = 2220 B4e = 

128 1RE8 420 = 2212 650 = 

208 ee Fick 430 = 1435 BEQ = 

ee a = 420248 440 = 4o52 57a 

220 = eS 45a = 2927 TOTAL = 

2aAn = AATS ARA = PER? 


Mm 
pm 
iD 


-J 


WRReR MY YB 


MoD i 
Te io tA NM 
WAN SA 


Bay 
ve) 
iD PM 

yom 


hm We RB A WP On IN) 

Nn-asjsmwWree AK iy wt 
Mh DL WO x) be 
MwphpN Ww ~ 


wb A 
QD be 


a) 
3 
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Tank Ambush 


CLASSIFICATION: Shoot Up 
The hunter against the hunted: hiding within the woods or lying 
behind hedges are devious infantrymen with dangerous heat- 
seeking missiles. 

These missiles will always home In on your tank. You can shoot 
them with keys 1 to 8, or manoeuvre by pressing Q for up, Z for 
down, | for left and Z for right. 


PROGRAMMING SUGGESTIONS 


Have an enemy helicopter that fires heat-seeking missiles at your 
tank — shoot them or avoid them by manoeuvring. Introduce 
limited ammunition in the tank and ammunition dumps (where the 
tank must wait until it is reloaded). Give the killer tank hit points so it 
can suffer up to five hits before being destroyed. Also, create a 
repair station to fix up damages, and create the fuel for the killer 
tank and fuel dumps where it can refuel. 


Sf 


PROGRAM 
Variables 
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screen memory 

Colour memory 

Background brightness level 

Level of difficulty 

Character and colour beneath tank 
Fired flag 

Co-ordinates of tank 

Delay for moving misSile 
Co-ordinates of enemy missile 
Character and colour behind missile 
Howitzer shell co-ordinates 
Character and colour behind shell 
Firing direction 

score 


Listing 


10 
20 


€0 


70 


130 
1930 
200 
2i@ 


Title Screen and Instructions; Initialise game 


VOL &83SC=30722CL=20482BR=72COLORO, 2, BRS Y=122X%=0 


PRINT "es BPM ew tee NR wo. Te Taw ew wee 
PRINT "BI BIB. Ew. FE ANGE 2 FT. aw we PH A 
aba aha. PS Aha aw ba 

PRINT ae Se) ee | re 
a*.azaan* 2~*® 2 * SBA 

PRINT ") (©) BY BE Bl Bl BS BD BIB) BI BI BI BIBER I NS TRU 
CT Y}TFons'" 

PRINT "Oe HHP Bee ee lo ®,. 2... AW O 
UR. TAN K “SPRINT °'t) BD BD OF BE BS BE BE Bi Bim @ . 
aoe MENE STW, TTI SSI LE, CC HSHOOT wD 
PRINT "tS BI Bi OF OB) OF Bi BD BE Bim *® . ww a FLAN OY 
TTI NE y«~ «2 wa aoa © FE AV OI DOD we DD “SPRINT ") BI BI 
PHM HAHHHe crv uw. wow GTREE (-HEODGE 
PRINT °) BE RE BI BIBI FIRING, .~ae2a.-w2a na aaa 
aanouaoaoal OveENMteE NT ™ 

PRINT " a BPR BP BIBS 2.14.22 aman een 
eS tll ll elle” 

PRINT "Bi BI BB BP BPNGUE Z 2 aw ew we we ESS RE T U 
RN @ wm thw ww ke el wl 

FRINT "BI BE BRP BT Se oH 3S. aw ew we Eo T On ae 
a as Oe i 

PRINT "BPE EB BB SEEN. «2 aw aw aw ew EE BE GIN. 
HE aks Sa a a a cas 

PRINT "BI BIBI 6 . 5.949. a eae nw SSS wee 
2: ve 


> a a a » a a» ” 


GETASSIF ASCCASICSOAZSTHEN 140 

GOSUB 71902GOSUB 660 
TB=PEEKCSC#+408¥ 4X95 TC=PEEKCCL £404 9D 
POKE SC#40*V4*K, 215SPOKE CL#4O0"V+K, 8 


Get Input; Move Missile In; Move and Fire Tank 


GETAS 

IF FS=""F "THEN GOSUB 4590 
E-EtisIF EC8-LYVTHEN 340 
F=a8 


3g 


21a 
320 
3390 
740 


AO 


POKE SC+4OEV4EX,EBSPOKE CLt4QO"EVY#tEX,ECSSOUND 1,100 
Q@-ABSCEX-X)-ABSCEY-Y),2 

IF EW=VWANDABSCEX-XISATHEN EW=EY*INT CRNDCQ)%3-1)¢ 
GOoTQ 26a 

IF EVCYTHEN EW=EV4+14 

IF EWDSWTHEN EW=EW-4 

IF EX=XANDABSCEYW-WISATHEN EX=EX*INT CRNDC 093-192 


GQOTQ 29a 
IF EXCXTHEN EX=EX+*4 


IF EXD>XTHEN EX=EX-4 

IF EYC2THEN EW=33 

IF EVYS24THEN EW=24 

IF EXCOTHEN EX=1 

IF EX?>39THEN EX=38 

GOSUB 678 

IF AS="""THEN 180 

POKE SC4+4Q#V4%, TBSPOKE CL#40eV4*+X, TC 

IF AS="Q "THEN YW=WY-1A2SOUND 3,400,109IF YWC2THEN YW=2 
IF AS="Z “THEN YW=V¥+ti1FSSOUND 3,380,103 1F WO24THEN ¥ 
=24 

IF AS="I "THEN X=%-13SOUND 3,420,10¢I1F XCOTHEN X= 
IF AS="P “THEN X=X#13SOUND 3,490,109 IF X>39THEN X 
=39 

IF VAL CASISOANDFS=""THEN FS="F "“"SSK=K2SY=VSD=VAL CAS 
23 TS=02GB=2152GC=O2SOUND 3,800,290 
TB=PEEKCSC+40"V 4X3 TC=PEEKCCLE4OMY4tXOSIF TB=42 
THEN 7380 

IF TR=43THEN TB=GB3TC=GC 

POKE SC#+4O0#V4+X%,215SPOKE CLt+4O0"¥4+K, 0 

GOTO 188 

POKE SC#408SY+4+S%,GBSPOKE CLt40RSY#*SX,G6C 

IF D=8ORD=10RD=2THEN SY=SY-ASIF SWC2THEN SW=29 
GOTO 64a 

IF D=20ORD=3O0RD=STHEN SK=SK4131F SXD3S9THEN SX=393 
GATTO 640 

IF D=4JORD=SORD=6THEN SY=S¥#1itIF SYD24THEN SW=243 
GOTQ 649 

IF D=6QRD=TORD=8THEN SXK=SK-ASIF SKCOTHEN SX=O0¢ 
GOTQ 64a 
GR=PEEKCSC+4OSV+4+SKX)9GC=PEEKCCLE4O0SY+#SX 


Shell Collision With Missile; Increase Level 


IF GB=215THEN GB=TB?GC=TC 

IF GRCOSLANDEBCO4ASTHEN 610 

PRINT “& "SIF BR=T7TTHEN PRINT "gs °° 

SOUND 3,1000,153PT=PT¢13PRINT "SW BBS CORE "; 
PT[GB=42°2GC=05GOSUB 668 


Nau wt 
Oo -1 mM Wh 
Qe aa gag 


6A@ 
610 
620 
6328 
640 
E50 


6690 
67Oo 
62a 
690 
TAO 


PU=PU41S1F PU=LV4tiTHEN BR=BR-19PU=0 

IF BR>=Q@THEN 600 

IF BR=-1THEN COLOR@,13GOTO 646 
BR=TSCOLOR@,2,BRELV=aLVtIZEF LVS8THEN LV=8 

FOR I=1 TO 5SOO*NEXTSPRINT "HB BWW WM ew L EVeE 
L ";LVs;",. C OTIP LET E DOD "“SFOR T=1 TO 19002 
NEXT?GQTQ 156 

COLOR®,2,BR3GOTO 640 

FOKE SC#40SY#SX,433P0KE CL+40"SY+4+SX,0 
TS=TStisIF TS>A@Q@THEN 640 

RETURN 

POKE SC4#dQ"SY#S%,GBSPOKE CL440"S¥4#+SXK,G6C 

FS=""*’S RETURN 


Initialise Enemy Missile Location 


S=INT CRNDCO9¥*4002EV=INTCRNDCO)#22+2) 
EB=PEEKCSC+SO*EYtHEX IS EC=PEEKCCLF+4QMEVFE XD 
IF EX=%ANDEV=YTHEN 730 
POKE SC4#4O08EY*EX, S1¢POKE CL+40HEVHEX, 8 
RETURN 


Display Score and Generate Background; End Game 


PRINT “So ca eR cet ea a a ee ee ee ee POR OR ee 
1BuUS HH" 

PRINT "BHM 2 24 SCORE “,;PT;"Y ";,LV4 

A=INT  CRNDCO5*504+50-68LV) 

FOR I=1 TQ ASB=INTCRND(CO9#9204+80)3POKE SC+B,652 
POKE CL4#B,533NEX 

A=INT CRNDC@)#30430-3¥LYV) 

FOR I=1 TO ASB=INTCRNDCOI*9204+8O003POKE SC+B, 1042 
POKE CLt*+B,&889NEXT 

RETURN 

POKE SC#40"Y4#X,102SFOR I=1 TO 15¢COLORO,1SSOUND 3,8 
Q0+1O0%1,92FOR J=1 TO SOSNEXTISNEXTI 
COLOR@,2,72PRINT "Ks  W ) BP Bs BE BE BS BD BE Bi BS BE BS EE 
BG 2 Ave Moe Ba we Oa VE a Re 

PRINT "C) G) G) BD BS Bi BS BE Bl Bi Bi BP Pt BP BP BE Bae SCOR 
E '",PT, "7 ";LVtisEND 
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ChexSum Tables 
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3640 
6aq4 
43916 
4620 
1AR2 
6531 
7k6@8 
2724 
32493 


li 


2L2A02R7 


Alien Overrun 


CLASSIFICATION: Defender 

Your spaceship has been invaded by hordes of menacing aliens 
and they are multiplying prodigiously. You must move around your 
spaceship for as long as possible without being destroyed. Wipe 
the aliens out by moving onto the green chequered squares. Don't 
Stand still as you don’t score when youre still. 


PROGRAMMING SUGGESTIONS 


Make your ship a multi-level vehicle and arm your man with more 
than one weapon. 
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PROGRAM 


Variables 
x1, Y¥1 Next position of player 
Kit Current position of player 
Z Level of difficulty 
SC score 
Ke Array of locations of each alien 
A,B Location of a particular alien 
Al, B1 Next location of a particular alien 
N Number of aliens 
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Listing 


1@ RET] ALTEN OVERUN 
2a COLOR4,5,53COLORO, 7,4 


Input Difficulty Level, Define Variables and Draw the 


Spaceship 
3a INPUT "ty DIFFICULTY, 4 - 5 ";242=27%19 
40 IF Z>S@OQRZCAOTHEN 30 
50 C=20484S=30722SC=O4DIMKCZ), ¥CZI2X=64 V=1024N=1 
60 PRINT "WV WM 2 ow ws ww etl we i Mw ee 
7a PRINT ake a ~» a yy am » »z~A A Lg y Aa aA = I a bed a aA e ie 
SA PRINT oe a yr Y a a a bal a lid y yy ry a aed j a yy a ~ a e 
9308 PRINT "“. «2 2 oa al Pw. o.eo ae @Rigiw..Ww. dd" 
1i@ PRINT en aA yy . V = ‘A a ry » » a » yy » ~~ a» a ‘“ lg ~“ a 
> | 20 
140 PRINT "Si @e Ww @ ww ow oo We WY DEG ci Na ow ew 
» a mh La ry i 


156 PRINT "“l§ URI R . 2 ow HE. BB. . WRU Hs ba 2 
Sew. 2 Mi. ra ili. AP" 

1690 PRINT "l§ Th . «2 2 WW. @ . MM 
idan BHR. da Ww. BY" 

ATA PRINT "hi @ m& Ww Maw wa ow wm oe MNES a 


ts 
E 
iT: 
= 
Y 

> 

a 
¢ 


aab id. " 

1R6 PLE OTR as ON as a a ce 
i i 

196 PRINT "I$ 2. 2 S@W WS. wa ew ww mr er ee ce el dl 
yP= Pr" 

2AaD PRINT "lj 2 2 «2 N@W NW 2. 2 ow anaaonenoeoea il F 
=V7" 

21a PRINT "l§ 2 «2 2 2 N@W UM. a. ae en nono on oc WPS 
| an 

220 PRINT ". «2 2 oa wo NW wn wo wat Rl wa. aw a a BP" 

230 PRINT ". «2 w2 a2 wo woe a SU aw oo ow BE aoa eaer 

240 PRINT ". «2 ow aw ow me lem lel QU oe BE ew 

250 FR a a aoa es a ae 2 WW .: & a." 


260 A=14>B=10SFQR 1=@ TO N 

270 KCTI=ASWCII=BSPOKE C+B¥40tA,22POKE StB*R4OtA, S1 
2RO AL=AFINT CRNDOC1983-19>7B1=BtI NT CRNDC 1983-1) 

230 IF PEEKCS#BiA*404ALDCO3S2THEN 280 

ial 4) B=B1ISA=ALSNEXRT 


AS 


aa 


FOR I=@ TO NSPRINT “"BHwow aS CORE > “;SC,3I1F SC 
CABTHEN PRINT "HW. ”’ 

CA=1SA=KXCIISB="CID 

IF RNDC19>.7TTHEN 350 
AL=H=AtFCALXI-CACKISBA=BtCB>YVI-CBCYISGOTO 360 
R1i=BtINT CRNDC 19832-1393 AL=AFINT CRNDCO 193-19 

IF PEEKCS#+B1%*404+A1)=320RPEEKCS#+B1#40+A1>=S81ORPEEKCS 
+BiAXIDtALI=BZETHEN GOO 

C1=CA+1FIF CACAOTHEN 358 

IF ICNTHEN A=KCI 4199 B=VCI 41) 

GOTO 410 

POKE S#B#40t+A, 32 

A=AASB=BASIF A=KXANDB=VWTHEN 339 
KCII=ASYCID=BSPOKE C+B*404+A,2°POKE S4+B#40+A, 81 


Scan Keyboard; Move Player in Response; Multiply and 


Move Aliens 


GETASSIF ASCO"A "ANDASCO'D "ANDASCO"W “"ANDASCSO"X °* 
THEN 330 

ML=KF CASHE"A “D-CASHE"D “DSVI=VECASHE"W "“O-CAS=E"X "YD 
P=PEEKCS#V¥1ix%464+xX1> 

IF P=S81THEN S80 

IF PCS>32ZANDPCTAB2ANDPCD230THEN 3530 

SCc=SCti 

POKE C#V1#404+%1, 7TSPOKE StVi*404*X1, S8SPOKE StvY¥xH4904+xX, 
B2SVHVASHEKA 

IF PCDOAL@2ANDPCS230THEN 53a 

FOR J=0 TO NSPOKE S#¥CJ>*404KC ID, 322NEXTSSC=SC-309 
IF SCCOTHEN SC=9 

N=12GOTO 2690 

IF NCZANDRNDC19>.8THEN N=ENFitxCNdI=KCN-LIPYCNI=AVCN 
=i) 

IF N=ZTHEN FOR J=1 TO ZSPOKE StV¥CJI*404KC J, 329 
NEXTIN=1 

NEXTISGOTO 310 

POKE S#¥CQ)*494#XKCO),3221F CI=AOTHEN 439 

GOTQ 3190 

RE 

FOR I=1 TO SOOSNERT 


Print the Score and Ask Player If He Wants Another Game 


FOR T=1 TO 10BDOSNEXTSPRINT "Ww THE LJ. MW ALTIE 
NMS Me. GaOT,z vY Ou?! $ "SPRINT SPRINT "os 8 BI 
Bes Cc ORE "SC 

PRINT SPRINT "“m AN OTHE R,A GANE? *" 
GETASSIF ASCI™Y "ANDASCO'N “THEN 6290 


108 
11@ 
12@ 
13a 
14a 
45@ 
16@ 
170 
18@ 
19@ 
2aa 
21a 
228 


IF AS=""N 


E N 
PRINT 


FOR I1=1 TO 15002NEXT 


RUN 


ChexSum Tables 


"SEND 
7PRINT 


"THEN PRINT 


7PRINT 


23a 


WWW Www th 
Mpawnvnurnywo mn 
SO NO YVIyY 


7PRINT 


“ses BYE 


aBYE,.TR 


“a * *%@*MR STAND, B YW ® @ # 


= 16412 
= 1442 
= 1457 
= 1572 
= 2668 
= 3417 
= 2234 

490aag 
= 2376 
= 1544 
= 14417 
= 4A67 
= 2419 
= 5232 
= 1624 
= 2236 
= 520 
= 14167 
= 2247 
= 2668 
= 41418 
= 4047 


HT 


139 
4147939 


4/ 
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Micro Minotaur 


CLASSIFICATION: Educational 
This is a smaller version of the number guessing game Minotaur. 
The objective is to guess a number inthe range of Oto 99. You do it 
by moving a piece around a board of numbers. As you pass over a 
number, it is removed from the board and added to your score. If 
you pass over an X, a clue appears at the top of the board for a 
short time. If you pass over a question mark, a random number is 
added to your Score. 

lf you pass over a number greater than five as you move around 
the board, you are pursued by aminotaur. If he captures you, youre 
dead. Remember, once you pass over anumber it is removed from 
the board and you cannot pass over spaces. If you become 
encircled by spaces. press T to escape. Move your piece around 
using | for left, P for right, Q for up and Z for down. When you have 
guessed the number, move your piece to the white cursor. 


AQ 


PROGRAMMING SUGGESTIONS 


Add different pieces to the board, such as bombs and mines. Place 
temporary barriers in the path of both the player and the minotaur. 


PROGRAM 
Variables 
SC Screen memory 
CO Colour memory 
H$ Characters to place on screen 
R Row co-ordinate of player's piece 
C Column co-ordinate of player’s piece 
PO Player's pieces position 
PE Player's pieces previous position 
BE Start of matrix on screen 
CI Column position of minotaur 
R1 Row position of minotaur 
MA Minotaur’s screen position 
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Listing 


10 
2a 


REM MICRO MINOTAUR 
CLR 


Draw Border, Rows of Numbers; Generate Number to 


Guess 


SCNCLRSVOL 8$COLOR1,1,3 
SC=3072%CO=2048% COLORO, 7, 4¢COLOR4, 6, 4¢C=O02R=OSP0=SC 
#CR*40)+C4BE=SC#130 

PRINT “la '*; 

FOR I=41 TO 24$RRS=RRSO"W “SNEXT 

FOR IT=4 TO 4QSCCS=CCS#™By SNERT 

FOR I=41 TO 34$CLS=CLS#". “SNEXT 

H$="1 23245 6 7 & 9 ? "#CHRSC24)SDIMCL$(18) 

FOR I=SC TQ SC#39SPOKE 1,416@SNEXT 

FOR I=SC#C 2440) TO SC#C24¥4094+392POKE 1,4160$NEXT 
FOR I=SC’°TO SC#(24"4@) STEP 4QSPOKE 1,160SNEXT 

FOR 1=SC#39 TO SC#(24%49)4+39 STEP 4O0SPOKE 1,160¢ 
NEXT 

PRINT “IW a 2 2 a oo 
AUR SU a ew aw mw eo PL 
FOR 1=SC+#13@ TO Sc#Rsa Ss 
FOR J=I TQ 1418 STEP 2 
Q=INTCRNDC1)*429¢1F Q=@THEN 172 
A=ASCCMIDSCHS,Q,1)) 

POKE J,ASNEXTSNEXT 

NU=INTCRNDC41>*1@@.S1F NU=@THEN 208 
NUS=STRSCNUDSRA=INTCRNDC41)"39S1F RA=QTHEN GOTO 210 
IF NUCABTHEN NUS="@ "4NUS 


CRO,A MINOT 


Make up Clues About Random Number 


IF RA=ATHEM CLSC19="F I RST,.AODI GIT, EQUA 
LS , “#MIDSCNUS,2,1)5 

IF RA=eTHEN CLSCLII="S ECOND,AODIGIT,AEAQU 
AL S 4. "“#tMIDSCNUS,3,1)5 

CN=2SFQR I=e2e TO NU-A 

A=NU “ITS B=INTCADSIF ACSBTHEN 2990 

IF CM=7THEN 208 
CLSCCNI="A . FAC 
Roe 2 oe a SSS ERS CAD 
NEX 

IF NUS2=INTCNU 25> THEN CLSCCNO="T HE .~NUMNBER 
@ 2 oS UE A sea 


TOR,AOOF ,zZ THE,ANUNMNBE 
+ CN=CN#4 


o1 


IF NUY2C>INTCOMU/20 THEN CLSCCNI="T HE ~NUMBER 
ereu cen © 

GR=VALCMIDSCNUS,3,1)294FOR I1=2 TO QSA=GBVI4IF A= 
INTCGRYIOTHEN GOSURB 196@4GQOTO 340 

NEXT ; 

GR=VALCMIOSCNUS,2,1)24FOR I1=2 TO S4A=GBVI4IF A= 
INTCGB/’ID2 THEN GOSUB 1@704GQTO 3260 

NEXT 

SP=VAL CMIDSCNUS,2,1.22IF SD/2=INTCSD/2)THEN CLS$C7> 

=F IRST,AZAODIGIT,AIS,ZEVEN®" 

IF SDY2CDINTCSD/2>2THEN CLSC72="F I RST.2ODIGI 

TaAIS,O0O0D" 

SD=VALCMIDSCNUS, 3,4)241F SD/72=INTCSD/2°THEN CLS$C8) 

="SECQOND,ADIGIT,AIS,ZEVEN" 

IF SD’2C>INTCSD/2>THEN CL$C89="S ECOND,ODIG 
IT,IS,000D" 

FOR I=4 TO SS1F I%I=NUTHEN CL$¢99="N UMBER, I 

S.2THE,zZAPROADUCT,ZAOF,AZAALASQAQUARE™"™ 


Place Minotaur and Player On Board; Move Them Around 


NEXT 

HO=BE+4@SPOKE HO,16a 
C1=6¢R1=6¢MA=BE+ (R140) #C41$VE=PEEKCMADSPOKE MA, 13 
C=1@¢R=182PO=BE+CR¥49)4#CSVA=PEEKCPO SPOKE PO,209 
A=PEEKCA9R SPOKE MA,13S1F A=64THEN 55@ 

IF A=62THEN GOSUB 56e 

IF A=12THEN GOSUB 620 

IF A=32THEN GOSUB 68a 

IF A=44THEN GOSUB 742 

IF A=22THEN GOTO 1942 

GOSUB &5@¢SQUND 2,15,12¢SQUND 1,23,23 

PRINT “RY ;LEFTSCRRS,2);LEFTSCCCS,2);CLS; 

TT=TT#CU 

PRINT “Ey ";LEFTSCRRS$,23);LEFTSCCCS,7);"9 LAST 
SCORES ™";CU;".,.HWTOTAL.LZSCORE?®& 
Ts 

CU=@SPOKE MA,144¢G0TO 45a 

IF R=@THEN RETURN 

R=R-2$PE=PQ$ PO=BE #(R¥42)+CSDA=PEEKCPOSIF DA=32 
THEN R=R#22PQO=BE+CR#40)+4+CS RETURN 

IF DA=43THEN GOTO 320 

GOSUB gZaa 

POKE PE, VASFL=PEEK CPE $CU=VALCCHRS$CFL22$POQKE PE,32$ 

VA=PEEKCPQ) 

POKE PO, 2@3¢RETURN 

IF R=48THEN RETURN 

R=R+2$PE=PO$ PO=BE+CR¥40)+CEDA=PEEKCPO SIF DA=32 

THEN R=R-2¢PO=BE+CR*4Q>4#CS RETURN 


IF DA=13THEN GOTO 920 

GOSUB 32aa@ 

POKE PE,VASFL=PEEKCPE)$CU=VAL CCHRSCFLIISPOKE PE, 32 
VA=PEEKCPOQDSPOQKE PQ, 2Q93RETURN 

IF C=AQTHEN RETURN 

C=C-23PE=PO3PN=BE4+C R¥*¥40)4+CSDA=PEEKCPOISIF DA=32 
THEN C=C 4+23PQ=BE 4 CR¥*40)4+C?RETURN 

IF DA=13THEN GOTQ 9320 

GOSUR #aQ 

POKE PE, VASFL=PEEKCPE)FCUHVAL CCHRSCFLIDSPOKE PE, 32 
VA=PEEKCPQDSPOKE PQ, 2QS9°RETURN 

IF C=ARTHEN RETURN 
C=C+23PE=PO04PQ=BE tC R¥GA4+CSDA=PEEKCPOISIF DA=32 
THEN C=C-23PO=BE 4+ C R409 4+CSRETURN 

IF DA=13THEN GOTQ 920 

GOASUBR 20 

POKE PE,VASFL=PEEKCPE)SCUH=VAL CCHRSCFLIISPOKE PE, 32 
VA=PEEKCPOOSPOKE PO, 2Q92RETURN 

IF DA=6B3THEN CUHINTCRNDC19%10) 
FUHINTCRNDC1981092DI =C40Q-LENCCLSCFUIDD v2 

IF DA=24THEN PRINT “SY "ZF; LEFTSCCCS,DID;LEFTSCRRS,2); 


CLSCFUD;2GOSUB 1650 
IF DA=A6QTHEN GOSUB 1000 


RETURN 


Work Out Minotaur’s Position and Move Him Closer To You 


IF CUCSTHEN RETURN 

IF CADSCTHEN C41=C1i-2 

IF CACCTHEN C41=CAt#2 

IF RASRTHEN RA=R1A-2 

IF RACRTHEN R1A=R1it*2 

POKE MA, VESMA=RBEF+CRAM4Q54#+CAS IF PEEKCMAD=209T HEN 
GOSUB 3204STQP 

VE=PEEKCIMIADSPOKE MA, 124¢RETURN 

PRINT "tl “";LEFTSCRRS$,1@);"T HE ~ MINQQATAUR, 
Hon S ~ Eb ACT EN ¥ Ow 

PRINT “BY ““;LEFTSCRRS,139;"T HE z~NUNMNBER, WA 
SM se Ns 

PRINT SPRINT PRINT 

PRINT "PQ, YOU, WANT,ZANOQTHER,A GA 
Pink OG, We Ne DY 8s 

GETASSIF AS="""THEN 9360 

IF AS=""Y ""THEN GOTO 20 

IF AS=""N ""THEN END 

GOTO 96a 

PRINT "tl, “;LEFTSCRRS,2>;LEFTSCRRS,39;"WHAT,. I S 
~2lFlHE, NUNMNBE RP “353 INPUT VT 


93 


54 


IF YVICDONUTHEN PRINT "WRONG, «zTHE.AZANUMB 

ER.2AWAS . “";NUSGOTO 340 

PRINT "CONGRATULATIONS .ZAYQOUAHA 

VE.ZBEATENAZMINOTAUR" 

GaTa 34a 

PRINT "ky "34 

FOR I=41 TO 12 

CLSC62="A 4. OF 

IT. 1 § "45 
F 
T 


GQATQ 33a 

QQSNEXTSRETURN 

ACTOR,ZAOQOF,A SECOND, OIG 
TRSCIOSRETURN 

AC TAR,A OF ,zZ FIRST, OI GI 
SCTOSRETURN 


CLSCSI="A 


Tog ke SS SER 


ChexSum Tables 


4@ = Q 27a 
2a 457 2RA 
3a 4425 230 
4a 5999 498 
=A = 295 410 
6a = 1942 420 
7a = 4292 430 
Xe = 1914 449 
qa = 2293 450 
1A@ = 41868 46a 
41a B3adi 470 
120 = 2612 420 
43a 2242 490 
148 = 2922 SAA 
150 = 41272 51a 
16a = 1222 20 
417@ = 2025 530 
12@ = 41198 5.408 
4aa = 739 55a 
20 = 2287 760 
218 = 3559 278 
220 1726 38a 
238 BARR4 330 
240 = gnae 6aa 
25a = 1424 616 
268 = 2422 G20 
27a = R57 620 
280 = 4206 640 
San = 434 650 
Ran = 4n234 660 
210 = 41414 678 
22a = 5441 62a 
230 = 434 620 
3240 = 5443 Taa 
25a 434 718 
REA = SR22 T2Q 


DO 
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Dumper 


CLASSIFICATION: Defender COLOUR ILEUSTRATION OBC 
An alien spacecraft is dropping bombs on your city’s shield and 
gradually eating it away. You have three dumper trucks with which 
to drop bricks onto the shield and rebuild it. (Be careful, the trucks 
can be destroyed by the UFO’s bombs.) Use the | key to move left. 
the P key to move right, and the SPACE bar to drop bricks on the 
shield. 


PROGRAMMING SUGGESTIONS 


Change or vary the effect of the alien's bombs so that one bomb 
may take one piece of the shield and another several pieces. Aiso 
give bonus points each time the UFO’s bombs break the shield If 
you reseal it before the city is destroyed. 


PROGRAM 


Variables 
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HS 
S 
B 
G$ 
AL 
p 
DI 
DU 


Highest score 
score 

Position of bomb 
INKEY$ 

Alien 

Position of dumper 
Holes 

Number of dumpers 


Listing 


m 
as) 


QS 


hohe be be be pe fe 
Ip ~ -~) 
g 


MMM 
SJ we © 
XY g 


Ny Of 
Nh WwW 
239 9 


AN) fs) 
“J mM 
ae) gy a) 


mM NM 
wD Oo 
a 9 


BAB 
318 
220 


REM DUMPER 

HS=O3VQL & 

COLOR@,4,53CQLQR4,2,5 

PRINT "WWMM eons 


Set the Colors; Draw the Sky, Shield and City; Define the 


Alien 


FOF ~T=1 TQ RSPRINT eae aa & AR & &H LR Ae ee he hh KOM 


as. 
~» ry »~ a A a a a ~ az a ~ » a a a a a a a a a a » dl 


*NEMT 

PRINT "@ BPW "TABCZO'R IE WH + © SE MW lg - 
PRINT "(C) @ me ew wl. = 7 @ LU eS ew oe De OS NGS 
ma AT UV. 8 oe i 

PRINT "Sl mm mp om Wo. ™ TT ™@ OMe N gw oe De OO SN GD 
Q4r71.@ om"; 


> 


x a a a a~ a» ae ae ~ a a ~ a, a > a a a» ry ? 
on 


os. 
~ a a a a & ~» ~ ~» a» a & a» »~ ~ a ~ ae » od 


PRINT "CO 0 Of 8 BI BL @ FS cc BI By BD BY BD BD Bd Bl bE By BD BJ 


“HUF Chea. OW. 


a 


4°GOTQ 22@ 


IF GS=""THEN K=64 

IF GS=""T “"“THEN K=42 

IF GS="P “*THEN K=2@ 

IF GS="". ““THEN 45a 

D=CK=H129-CK=2OIM24+PZIF DCA3SSATHEN 3210 

IF PEEK CDI =16@QTHEN D=D-4a 

IF OSPTHEN D=D-4 

POKE. Py 325 POKE. P-41, 32SPOKE P-23,325POKE P41, 32¢ 
POKE P-40, 322 

FORE P21, s2 SPORE. P-80, 32SPOKE P=79; 22SPOKE P-t2i;3 
2esPOKE F-119, 3223P=D 

POKE P,2i15POKE P+1,219FOQKE P-41,233¢POQKE P-40,98% 
POKE  P=29;, 2438 

IF PEEK CP#4@ 3 C> 22ANDPEEKCP4+4Q)CO16@THEN 52a 

IF PEEKCP#4Q)=16@THEN 321A 

D=P#4@2GQTO 250 

AL=AL#+INT CRNOC1)#®3-1931F ALCATHEN AL=0 

IF ALZDARTHEN AL=18 


og 
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Move the Alien Invader Along the Top of the Screen and the 


Dumper 


PRINT "hy ""TABCALIAS 

IF BO@THEN 374 

IF RNDC19C.8THEN 440 

B=3154+4+AL 

POKE B,324¢B=B+40¢IF PEEKCB)=32THEN 430 
IF FEEKCBICSAEGATHEN 410 

POKE B,32 

R=ASGQTO 448 

IF BS3711THEN S2a 

GOTQ 540 

POKE 8,46 

GoTQ i74a 

DI=P-AS1F PEEKCOI +40. CO160THEN S=S+t5 
POKE P-41,95 

POKE P-41,23322GOTO 35aga 

S=St#tisPOKE DOI,160 

FOR T=1 TQ AQSNEXT 

IF PEEKCDI#4@)=1600RDI53671THEN 3190 
POKE D1,3223DI=DI4403GOTO 48a 


GOTO 530 

GaTa 61a 
Generate Sound, Print the Score and Prompt for Another 
Game 

REM SQUND 


SQUND 2,55,5SPQKE B-41,772POKE B,121¢POKE 8+1,78 
IF QUSATHEN 61@ 

POKE B,22SPOKE B-1,323POKE Bti,32 

POKE P,22¢PQKE P4#1,32¢POKE P-41,323POKE P-40, 322 

ROKE. .P=395 32 

PRINT “BS "TABCAL4#19™, .« «2 «2 WU Mw wo 

DU=PDU-ASGOTO 140 

FOR I[=41 TO 1Q@@SNEXTSPRINT “WW We SCORE “S 
IF SSHSTHEN HS=S 

PRINT "ER HI «a « « HS 

PRINT “MH AN OQTHER,AGANE ? “SPOKE 198,48 
GETASS IF AS="VY ""THEN 4a 

IF ASCD"M "THEN 65@ 

PPINT SPRINT "GR OHATAQDQ.zATOUGH.,AF ORA 
Oe ge oa EO ae 

END 


A347 
414161 
IOs 
2316 
1938 
aoe 
33a 
4] 
2477 
RET 
1778 
3465 
1762 
1333 
2aA8B4 
41479 
696 
1746 
1243 
1128 
264598 
129 


AQ69E3 
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Scrambler 


CLASSIFICATION. Evasion 


You are the commander of a spaceship which must fly through an 
obstacle course of mountains, corridors and meteors. To move 
your space vehicle, use the Q key for up. the Z key for down. The 
program uses a small machine-language routine to scroll the 
screen, so the program should be saved before running in case 
you make a ‘typo’ and crash the program. 


PROGRAMMING SUGGESTIONS 


Give the player more landscapes to travel through. Cause a 
missile or a rocket to drift up from the ground occasionally. Give 
the player a fuel limit or a time limit to complete a given piece of 
scenery, otherwise he is destroyed. 
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PROGRAM 


Variables 
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Start of screem memory 
Position of spaceship 

start of colour memory 

Row position of spaceship 
Column position of spaceship 
Keyscan location 

Vertical bar 

Column positioning variable 
Row positioning variable 
score 


Listing 


190 
11@ 
120 
13@ 
14a 


228 
238 
248 
25a 
26a 
27a 


230 
2aa 


REM SCRAMBLER 

POKE S55,163PQKE 56,39°3CLR 

GOSUB 45@ 

TS="9 2. HON OHOHOHNONONnW., &" 

COLOR@, 7, 33 COLOR4G, 7,5 

KS="I0. S@ OF “SFOR T=1 TO 19 1S=1S4+KSSNEXRT 

SAS=",. 42 «2 oa eM. ZS ENGL OP 

Ni 7. UW kw” 

RRS="EJ "SFOR I=1 TO 24¢RRS=RRSH WE “NSNEXTSFOR T=41 
TQ 3293CCS=CCSH+' BY "SNEXT 

WS="B] "*+LEFTSCRRS, 22,*LEFTSCCCS$, 38) 


Define Variables; Read Machine Program Into Memory 


FOR [=11@@A TO 1A1AQ7TAFREADASPOKE I,ASNEXT 
PRINT "hu "";3Ki=11000 
P=19RFR=123C=203 SA=30723 SL=2O048 SLIME 380 
PQ=SAFCREGAD+C 

PRINT "la ";TABC169;"S TAGE ,zZAOQOQNEq. a. "3 


Stage One: Fly Ship Over Mountains With Lowest Possible 


Altitude 


FOR SC=1 TO 39@¢SVYS K1I¢PRINT WS;LEFTSCIS$,RNDC19"7O) 
IF PEEKCPO+83>=16@Q0RPEEKCPO+82)=160THEN GOSUB 56Q¢ 
GOTO 149 

A=PEEKCP SIF A=G2THEN GOSUB 32a 

IF A=12THEN GOSUB 3249 

S1=S1#R-GSPRINT "EE LY "SPRINT USING # # "5S41;9 
PRINT "@ 2 4 0°; 

PRINT LEFTSCRRS,R);LEFTSCCCS$,C); SAS; NEXT 

PRINT "EP ";TABC169;"S TAGE .z2TWOn aa "5 


Stage Two: Fly Ship Through Meteor Storm and Keep 


Dodging Them 


FOR SC=1 TO 30@2SYWS K41 

IF SLI=Q@THEN SW=1>G0TO 27a 

SW=a 

HK=INTCRMNDCA9*22091F HKCSTHEN 250 
FK=2A724+CHKHGQ*+39SPOKE FK,&1 

IF PEEKCPO#+83)=R10RPEEKCPO43)=16800RPEEKCPO#439=81 
QRPEEKCPQ44)=R8414THEN GOSUR S60 

A=PEEKCPISIF A=62THEN GOSUB 320 

IF A=A2THEN GOSUB 340 
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S4=SA4#4SPRINT "RLY "SG SPRINT USING # # "5S4;5¢ 
PRINT "M@ . "5 

PRINT LEFTSCRRS,RD;LEFTSCCCS$,CI;SAS;SNEXTSPRINT "hy 
YaouR, SCORE ,ZAWAS ¢ . ";SCESTOP 

IF R=STHEN RETURN 

R=R-12PQ=SAFCR#E40)4CS RETURN 

IF R=22THEN RETURN 

R=R4+1¢PO=SAtFCR¥E4OI4+C FS RETURN 

REM DATA FOR BLOCK MQVE 

REM 3wSsse2223222235S325S222232= 
DATALI73,11,255, 201, 204, 208, 249,160,0,162,1399,125,20 
1,12,153,200,12,185 
DATAI495,13,153,144,13,185,89,14,153, 88,149,185 
DATA33,15,153,32,15, 200, 202, 208,228,160,0,162 
DATAS, 142,222, 46,169, 32,153,239,12 
DATA15S3,183,13,153,127,14,153, 71,15,1352,24,105, 40,1 
68,174,238, 46, 2@2 

DATA2ZAS, 228,96 

NEXT 

PRINT "ti "J TABCI49;"IY SCRAMBLER ®@® "; 

PRINT ¢PRINT *PRINT "G UI DE, THE. SHI Pa 
ACRQASS, THE ,zANOQUNTAITINS. THE "9 
PRINT 

PRINT "L QOQWER,AYWQU,ASTAYW,ZA THE zZANOR 
EE. PQINTS, YOU, GATIN . "SPRINT 

PRINT "I F,gzYWOU, LIF T,gzAYWOUR.ASHIP a 
TO, I TS,z MAK I MUM SPRINT 

PRINT "HE IGHT.,.YW’WOU,A WILL,aA BEGIN, 
LaQaOS ING,A POINT SS. "SPRINT 

PRINT "BE, CAR EFUL,ANOT.azATO-ACRAS 
H,.,z INTO,ANOAUNTATIN S. “SPRINT 

PRINT "Q NCE, YQU,zA HAVE ,ZAZPASSED,T 
HE ,zZANQUNTAITINS , ¥ OU “SPRINT 

PRINT "WWI tL Lb w«zgHAVE,A TO,ASURV IVE, A 
a MLE F EO R 4 S 7 © RT 'SPRINT 

PRINT TABC1@9;°P RESS ZANYWAKEW,.T O24 S 
1 AR T ; 

GETASSIF AS="""THEN 540 

RETURN 

FOR 1=4 TA ASFFOR J=1 TO S9SNEXTSCOLORA,1,33NEXTS 
RETURN 


ChexSum Tables 


10 = a 2AM = 2061 29M = 2422 
2a = 4149 24Q = 1764 400 = 2293 
an = 302 220 = 1205 419 = 1828 
4a = 2259 2320 = A754 42Q = 32252 
-_ - 4968 240 = 44 420 569 
ba = 2816 ene a. 44a = 434 
Te = 4257 26e = 2109 Asa = 1946 
ZA = 4712 EtG = saa" 460 = 4372 
an = 2204 eee! i eee 47a aRg55 
199 = 2092 fo OS eee 480 3518 
4418 4124 Soe ee 490 = 3538 
120 2254 coe a Se 50Q@ = 3769 
130 4349 ae0 = The S10 = 3716 
44a = 4232 338 = 2296 52a = 3385 
158 2944 Sa ae S3Q@ = esae 
AGA 2742 ee 4 = 2295) Sd4aa = 4eie 
170 = 1688 eee, te 2 55 = 142 
LEA - Q9R4 3708 = a 56a 2797 
41930 = 3A16 320 = 40%e2 TOTAL = 125262 
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Siege 


CLASSIFICATION: Shoot Up 

It's you versus the Commodore 16. Use your ballista to lob huge 
rocks at the castle, trying to demolish it before it destroys your 
castle. You can raise and lower your ballista with Q and Z, and 
trundle it closer to or further away with P or |. Hitting the SPACE bar 
will fling your boulder. 


PROGRAMMING SUGGESTIONS 


Put flags on towers for extra points if hit. Have limited ammunition 
or reloading times. Have a different type of ammunition which 
starts fires which you must put out. You cannot shoot while 
extinguishing fires. Adapt the game for two players.. 
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PROGRAM 


Variables 
CX Computer position 
PX Player position 
EV Elevation of player's ballista 
BY Height of player's rock 
VY Velocity of player's rock 
B% Horizontal position of player’s rock 
CY Height of computer's rock 
FY Velocity of computer's rock 
C% Horizontal position of computer's rock 
PB Bricks remaining in player's castle 
CB Bricks remaining in computer's castle 
CH Character beneath player's rock 
C2 Character beneath computer's rock 
F$ Player fired flag 
F2$ Computer fired flag 
M Computer move distance 
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Listing 


Title Screen 

410 COLORG@,14*COLOR4G,112VOL S4PRINT "hk, "“SCOLOR1,6,6 

20 PRINT ", «2 «2 ws wa ao me me me me ea FDR ew PHD ea Tail 

20 PRED Se. 2h. ke de a as a, Ss ck ee I ee ee ee ae 
he Sas aN a as a FO. 

AA PREM S82 g> ke i a aR ee Oa me a SSN a Pee ee a 
aaa Fm” 

50 PRIN Be gs es ake a as ca as es me Ge ms, i kee a as SE 
Fa ee ee OOO 

BA PRENT eg es es a a a a ce a ee Oe oe Ee st a ee 
=~ *#. eke a” 

7a PRINT SPRITE SPRINT se. 2. ce ce ce ee ce OH a a ce 
~afCQNTROLS# * 

ZA PRINT PRINT “, 2 «2 ow ow ow ao BM’ GEAR’ ww we ew dC 

CREASE,ZRANGE" 
1%) PRINT. SPRING "Sec of k. ces a a cae SE SOY me eRe OES 


REASE,ZARANGE" 

1A PRINT @PRINY “su 2 « G& 2 a? WPS? «2x ~ ww TOY 
Ee, BALLISTA,ZARIGHT" 

410 PRINT *PRINT ". 2. «2 «2 ow aww CC IT OD’ we rm wee NOY 
E.BALLISTAALEFT" 

120 PRINT SPRINT “2 2 1 aw aw a BP SPACE wz 2 a2 MF IR 
ES,BALLISTA" 

41320 PRINT PRINT *PRINT *PRINT "2 a ow w aw ew ew me ew lL SUA 
1T,RETURN,ZATQ,zABEGIND"™ 


Initialise Game and Draw Game Screen 


140 GETASSIF AS="""THEN 140 

15a IF ASCCASICIAZTHEN 148 

160 PRINT "Ke "“SCOS=BUMNHUUMUUMUMHNHMBUUuEeUeuUuuUuauulb 
Woe ee 

17a CRS=""2CCS="B) BI BI] BD BE BS BS BL BY BS BBY Bl BS Bs) Bt Bd Bl Bi BI 
By} By Bi BD BY Bl BY Bl BP PB By RB 

Aza CX=4¢PX=14 EVH1.99B%=04 BY=02 VY =03 CH=322C%=O2CY=O5F¥ 
=ASC2=223PR=407CB=40 

13a Bs="{ 0+ 0, " 

2aa B1s=", . * 5 a. WUE ecias=". 14 * 2. WN 

21@ Bes=". 2 2 hun 

220 B3s="B oa. wo OH 


gescas="{ ch. WH” 
oe pe scss=". 4%... UW 
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f2 


cTs="@ .@.@. @ "SClis="@ @ @ @© @ @ "SSPS="_ 42 4 


ee 
~ a a a a a a& a a 


COLOR1,93,53PRINT “3 .2 a2 2 a ak as, a a aa, a a ae 
2 SIEGE ! "PRINT "EG OO BBB BPPLAYWE 
fe. ers 5 

COEQR 1, 155 S5SRPRUNG 2 a sa ee a as ee ee as a a a ee 
OMNP UT E R "#COLQR1,2,3 

PRINT "SHO WWW HOO OW ww "SCTS;SP$5;". 2. "5S 
P$,;,CTS$; 

FOR I=4 TQ GSPRINT CWS;SP$;"@ @ @ @ ";SPS$;CWS;% 
PRINT ?NEX 

PRINT .". 2 mw ma a mae oe ea CCUNNeeUnWne ew 
wee ew nite @ “"sCcoOLoRi,10,2 

PRINT "R RRRRRRRRRRRRRRRRRRRRR 
RRRRERRRRRRRRRRRR VGSPOKE 4071,1022 
POKE 3047, 31 

FSH" SF esa" FS BXS=BiISsCKs=Cis 


> 


Get Input 


GETAS 

COLOR1,10,429PRINT CDS$;CRS;BX$;B8$;CDS;CCS$;CXS$;BS 
IF AS="I "THEN PH=PX-13SOUND 2,100, 2-CRS=LEFTSCCRS, 
PMISIF PXCATHEN PK=4 

IF AS="P "THEN PX=PX#12SQUND 2,100,2S¢CRS=CRS4"B] "S 
IF PXDA4ATHEN PK=14¢CRS=LEFTSCCRS,149 

IF AS="Q “THEN EV=EVU4 .013SOUND 2,100@,121F EV>2.4 
THEN EV=e2.4 

IF AS="2Z2 "THEN EV=EV-.019SOUND 2,1000,4131F EVC1.5 
THEN EV=1.5 

IF RNOC@IC.STHEN 430 

M=INTCRNOCOI*3)-4 

CX=CHEMZIF CXDASTHEN CK=154M=0 

IF CKC4THEN CX=42M=0 

IF M=1THEN CCS=LEFTSCCCS$,36-CX) 

IF f=-1ATHEN CCS=CCSt"py 

IF FS="F I R E D "THEN GOSUB 510 

IF Fes="F IT R E OD “THEN GOSUB 610¢GOTO 470 


Fire Computer's Ballista 


FOS="F I RE D "SPRINT CDS;CCS$;,C2$;BS;CD$;CDS;CCS,C 
SS;BS;,5FV=1.54RNDCO%. 240 V1 
SOUND 2, 850,19 CXS=C3S$3Fe2=37-CXSGOSUB 620 


47a 


Fire Player's Ballista 


IF ASCO", “ORFS="F TI RE D “THEN 3180 

PRINT CDS$;CRS$;B2$;B$;CDS;CD$S$;CD$;CRS;B39;BS; 
VY=EVs.7ATASBY=13SOUND 3,200,108 
BXS=B3SSFS=PX#2¢FS="F I RE D "SGOSUB S207GOTO 310 


Move Player's Rock and Check For Collision 


POKE 3992¢4FS-INTCBY)#®404B%,CH 
BY=Bx+41 5 BY=BYFtVYS VY=VY-— 11 
CH=PEEKC339924+FS—-INTCBY*#404B%903 IF CH=32THEN 390 
SOUND 1,0,Q@2SOUND 3, 200,10 

IF CH=42THEN POKE 39924FS—-INT CBY)#40+Bz%, 325 FS$="°"SB% 
=A BVY=ASVVW=ASBXS=B1isSTGATA 700 

IF BXDABANDCHCO3S2ANDCHCIAGBSTHEN P1=P1+12COLOR1,3, 4° 
PRINT “8 UO UO © © © BBE BD Bi BE bY Pt 

POKE 3299324FS-INT CBY)#404B%, 3231F BYDABANDCH=8 

THEN CB=CB-1 

IF CB=A@THEN SOUND 1,10@0,9¢PRINT "BH Dw. 2 a2 aw mw ow 
ie es a a a ee a Ce NOOO gO -ON.E. 2 GOTO 710 
IF CH=32ANDB“%4FSC4QANDINT CRY SQTHEN POKE 39924FS-— 
INT CBW 2#4A4B%, 4A22RETURN 

FS=" "SO B4=02 BY=02 VY=A3 BXS=B1S>3 RETURN 


Move Computer's Rock and Check For Collision 


POKE 322392¢4F2-INTCCY)*4A-C%,C2 
CYHACKhFASCV=HCY +R VAR VY=FY—.A4 
C2=PEEKCA29924¢F2-INT CCV 84Q-CHISIF C2=32THEN 696 
SOUND 1,@,@2SOUND 3,900,290 

IF C2=42THEN POKE 29392+4FS-INT CBY5#40+4+B%, 323F $=" 2 Bx 
=ASBY=O2 VVY=OSBxXS=B1iSsGOTA 7aa 

IF CxDATANDC2CS3B2ANDC2COAM2STHEN P2=P24+isPRINT ‘4 B 
BS Be RE Bd BE Bd BS By Bl Bi Bl Bl Bl BY Bb) By Bl BS Bl BB 
BER) By BY BY’ Pe 

POKE 32992+4¢F2-INTCCYI€940-C%,3291F CZxHOLATANDC2=0 

THEN PRBR=PB-1 

IF PB=OTHEN PRINT "“E) UW «2 «2 2 & 2 oe we oe eh eh celUvDFCUW EE 
a~afHbconrPtt & Rm .WON.. . "SGQTO 718 

IF C2=322ANDC%-F2CAANDINTCCYIS@THEN POKE 3992tF2- 
INT CCWI#4A-C%, 423RETURN 

F2SH=" So Cu=ASCV=ASFV=ASCXS=CASSRETURN 


gs 


End Game 


71a PRINT "HWW WWMM 2.2. 2 aw a ANOTHER.AGA 
Re ae re 

72a GETASSIF AS=""THEN 720A 

730 IF AS="VY “THEN RUN1I690 

74a PRINT "ll “SENO 


ChexSum Tables 


419 = 22374 26a = 2126 51a = 2177 
2a = 2574 278 = 2028 sea = 24971 
32a = ©6294 28a = 2522 330 = 3512 
4a = 2946 290 = 2556 540 = 4194 
5a = 2224 20a = 2230 S5a = 6534 
Ga = 3571 321@ = 267 760 = S3aei 
7A = 2244 328 = 2868 378A = 4406 
LA = P7R4 33a = 4962 =EQ = 4037 
aA = 259e0 348 = 6143 59a = 3127 
4Aap = 2N9AR 25@ = 3827 6aa = 2659 
1410 = ?Pas7 366 = S335 610 = 2106 
42?Aa = 2752 27a = 1113 62a = 2457 
420 = R162 2Ra = {A226 B2a = 3426 
449 = 1242 390 = 2455 640 = 1194 
15Q = 4276 qaqa == 1497 650 = 6510 
46a = 4512 418 = 2015 66@ = Sk1a 
17@ = 2362 ee ee et eae 
126. ~“Sba4e 4320 = 1396 6g@ = 4119 
tao -=-4aRs 449 = 2055 69@ = 4913 
20a = 3213 450 = 3624 70a = 2744 
2402 = 2774 460 = 2504 718 = 1784 
220 «= 322R6 47@ = 20R4 720 = 41246 
230 = 3905 420 = 2727 730 = 1096 
24) = 3R52 439 = 2179 740 += 569 
25a = 2RAR SAQ = 2343 TOTAL = 223686 
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Hunter 


CLASSIFICATION: Evasion COLOUR ILLUSTRATION OBC 
You are a wild animal in a maze being pursued by a hunter. You 
can move yourself around the maze by pressing the keys |, P, Q 
and Z. No matter where you go In the maze, the hunter will know 
where you are and seek you out. As you move through the maze 
you eat munchies. When you have eaten all the munchies, you win. 
There are four levels. 


PROGRAMMING SUGGESTIONS 


Add a facility at the hardest level of the game so thatthe player can 
‘teleport’ to another part of the board. He can't, however, control his 
destination, so he might land on top of the hunter. 


es) 


PROGRAM 


Variables 
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FS 
D$ 
SC 
CCS 


Barriers of maze 
Munchies 

screen start in memory 
Horizontal position string 
Vertical position string 
Row position of animal 
Column position of animal 
Current position of animal 
Previous position of animal 
Column position of hunter 
Row position of hunter 
Hunter's previous position 
Hunter's current position 


Listing 


14 
28 
3a 
40 


WM WM MN M 
me 9D 1D © 
gaa s 


a) 
N 
a 


RET HUNTER 
CLRSCOLOR@A,&,34COLOR4, 7,3-COLOR1,2,7 


GasuRg 710 
GOSUR S5@a 

Draw the Border, Maze, Power Pills and Define Variables 
SCNCLR 


SC=3072$CO=2048¢BE=3072+207 

AS="d a. a M@ "SBS=", "SCS=AS+BS 

ESS oes 

FOR I1=41 TO 4@¢CCS=CCS#™B) SNEXT 

FOR I=41 TO 25¢RRS=RRS#"W "SNEXT 

FOR I=SC TO SC#39$PQKE I,16Q$POKE 1+960,160¢NEXT 
FOR I=SC TO SC#999 STEP 4@SPOKE 1,16@$POKE 1+39,160 
$NEXT 

PRINT "8 ";TABCI39;"IN HUNTER"; 

FOR I=41 TO 8$FS=FS#ESSNEXT 

FOR I=41 TO 10¢D$=DS+CSENEXTSPRINT PRINT $PRINT ¢ 
PRINT $PRINT 

FOR I=41 TO SSPRINT TABCT)2;DS¢PRINT TABC7);D$¢% 

PRINT TABCT);FS$NEXT 

PRINT TABCT);D$$PRINT TABC7);D$ 

R=2¢C=0 

PO=RE+CR*40>+CSPOKE PO,102 
C1=26¢R1=16¢P1=BE+CRIM4094+C1$VE=PEEKCP1SPOKE P1,&86 


Move Your Piece Up, Down, Left and Right; Move the 
Hunter 


A=PEEKCASR021F A=62THEN GOSUB 379 

IF A=12THEN GOSUB 42a 

IF A=33THEN GOSURB 47a 

IF A=41THEN GOSUB 520 

GOSUB 290 

IF CN=4@THEN GOSUB 64a¢GOTO 10 

PRINT “EY ";LEFT$CRRS,3);LEFTS$CCC$,169;"W SCORE 
green eae 


ra 


GOTQ 216 
IF SWCSAWTHEN SW=SW+iSRETURN 
SW=9 


PC=PASIF CACCTHEN C2=C1isC1=C1it+i1SPi=BE+CRAI*4O004+C1¢ 
IF PEEKCPL,=160THEN C1i=C2sP1=PC 

IF CAS>CTHEN C2=C1ASCA=CA-ASPA=BE+CRiAI*MAOIF+C1 TIF 
PEEKCPIS=160THEN Ci=C2sPi=PC 


ei 


IF RACRTHEN R2=RAFRA=R14+19P1=BE+CRAM4IO*+C1 SIF 


PEEKCPI)=160THEN R1=R2¢P1=PC 


IF RADSRTHEN R2=RASRA=R1-193P1=BE+CRANGOID*FCISIF 


PEEKCPA.=160THEN R1A=R29P1=PC 


POKE PC,VESVE=PEEKCPI CIF VE=102THEN GOSUB 6002 


GQTO 1@ 
POKE Pi, 863RETURN 
IF R=@THEN RETURN 


TA=POSR=R-1A$PO=BE#+CRE4GQO94+CS IF PEEKCPOS=A60THEN PO 


=TASR=RtiISRETURN 
IF PEEKCPOQ)=13THEN GOSUB 570 


IF PEEKCPOQ)=81THEN S1=S14+13CN=CN1 


POKE T1i,323FQKE PO,1022RETURN 
IF R=1A6THEN RETURN 


TI=POSR=Rt*iSPO=BEF+CR¥4O.4#+CSIF PEEKCPOD=160THEN PO 


=TASR=R-ASRETURN 


IF PEEKCPOQD=8ATHEN Si=Siti?CN=CN4 


IF PEEKCPO)=R86THEN GOSUB 570 
POKE T1,323POKE PO,1022RETURN 
IF C=@OTHEN RETURN 


TI=PO>C=C-1>PO=BE FC REGO 4*+CSIF PEEKCPOD=160THEN C=C 


#15 PO=TISRETURN 


IF PEEKCPOS=8A1 THEN CN=CN#12S1=S1i+t+4 


IF PEEKCPOD=S86THEN GOSUB STO 
POKE T1i,323POKE PO,162¢RETURN 
IF C=2RTHEN RETURN 


TA=POSC=C#isPO=BE FC REGO 4+CZ IF PEEKCPOD=160THEN C=C 


~1SPQ=TASRETURN 


IF PEEKCPOQ)=R8i1THEN CN=CN#19S1=Sitd 


IF PEEKCPO)D=86THEN GOSUB S70 
POKE T1,323POKE PO,1023RETURN 


You Ran Into the Hunter; You Won the Game; Print 


Instructions 


SCNCLRSPRINT "YW OU,ARAN,ASTRAIGHT 


TO.zTHE zjHUNTER ! 


PRINT SPRINT @PRINT TABC139;°tY 


cor OO AE Ry PP ke eS 


PRINT SPRINT $GOSUB 6894GOTO 10 
SCNCLRSPRINT "2. 22 WYOU,ZA WERE 


D.aBYWY.ATHE,zZHUNTE 
PRINT SPRINT 
PRINT TABCI195;"¥ OU,AATE 
PILL S "SPRINT ¢PRINT 
GOSUB 68a 
RETURN 

SCNCLR 


R 


a 


; 8 
OU a AAT Be. "5 


ae ae ae ae ee 


"";CN,". POWER 


a2 IN 


CN 


a CAPTURE 


a 


PRINT "Ka ";TABCI39"C ONGRATULATIONS*" 


PRINT SPRINT SPRINT SPRINT TABCS);"°Y OU,Z HAVE 
wa es A Pe HE A on 

PRINT SPRINT [GOSUB 6809RETURN 

PRINT TABCS9;"P RES S ,ANY, KEW, TO,ACO 
NT FN UE ";3FOR I=1 TO 20¢GETASSNEXRT 

GETASSIF AS=""THEN 690 

RETURN 

SCNCLRSPRINT TABC16),"la HUNTER 

PRINT SPRINT SPRINT "F171 OVE, ARUNOD,ZA THE, 
» CORO EO NaF OR a- AS @ OO NG: 4 ASS 

PRINT 

PRINT "P OS SIBLE, WITHOUT, BEING 
~aDESTROAOAWYED,A BW, THE "SPRINT 

PRINT "HUN TER. g«zYW?WOU,AGET,APOINT S 
~aFQR,AEAT ING, TH E "SPRINT 

PRINT "P QOWER,APILLS.WHEN,ZAALL,A 
RE,zA GONE, WYQU, GE T "8PRINT 

PRINT “A NOTHER,AGANE,NOVE, YOUR 
a hliAN.,.WHWI TH, THE S E "SPRINT 

PRINT "K EW, CONBINAT ION S — "SPRINT 
PRINT SPRINT 

PRINT TABCA59;"I 2.2 - «2 LEFT" 

PRINT TABCI159;"P , - «~.RIGHT"™ 

PRINT TABC15)9;"Q . - .~ UP" 

PRINT TABCI159;""2 .2 - «4 DOWN "SPRINT SPRINT 
GOSUB 6&8@3COLOR1,2,7 

RETURN 

SCNCLRSPRINT "D I FF I CULTY,ALEVELRL, CA 
—_ 4 >) ve. 


GETASSIF ASC"A 


r 


“THEN 3600RAS>"4 


TY=VAL CAS) SALHA4-T YS RETURN 


FOR T=1 


"THEN 8690 


TO 2553;GETKEVASSPOKE 3072, 13NEXT 
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ChexSum Tables 


a 


It 
= 
4) 
-] 
~] 


Wy MN 
WD 
1D 


& 
BE 


(ad 
fa) 


a» fr) 
mw. A) 
0) in a 4 
mo 


xy 
N 


WW PO ee be 
1D 

Dh w 
wm NM 


a 

nN wWe A 

Tb 
(Sl 


N 
=) 
WD 


‘3 
iT be 
nmhph DL 


be 1) 
m hy 
mn 


iD © 
if NM 


= 
ID 


S 
BS) 

ml ad 

1D 09 
in 
ch it 
mn 


ey 
iO -~J 
as) 

mm be A) 
LO 
AE) 


\‘D 
ee) 
wm 
be © 
wg 


ve) 
fi 
wu RON WwW 


tJ 
Y 
N 
NM 
CM 
mM 


Bhi 
N 


S 
D 


N We 
A 
NM & f- 
mh 
th Woe 
=m A NM 
SIAl & 
Qo Ww 


oY] 
fad 


1A3@14 
4857 
3192 
306 
143 
233 
2157 
3274a 
94923 
4174 
Lar3 
143 
1437 
oot 
3862 
3592 
i G 
2604 
1778 
366 
1147 
125a 
1Ai3 
15937 
267 
4143 
22sea 
22R6 
1204 
2ABT 


231234 


Chess 


CLASSIFICATION: LOQgic 

This game plays a subset of the standard chess game against you. 
You move around the screen by entering the starting position and 
then the destination position in the format (X, Y). The pieces are 
represented on the screen by the following symbols: 


King K or kK 
Queen Q oord 
Rook R oor r 
Knight Noor on 
Pawn PY 2OF 0 


You play red from the bottom. When your pawn reaches the top, 
you must enter the initial of the piece you want to exchange it with, 
using the same system as above. The computer will tell you when 
you are in checkmate. If this happens, type 999 999 when it is your 
move. You always go first and the game does not permit castling 
nor en passant Moves. 
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PROGRAMMING SUGGESTIONS 


Increase the game's central logic so that it can handle castling and 
en passant moves. Add to the number of pieces that can be fielded 
by both sides and replace symbols with user-defined characters. 


PROGRAM 
Variables 
B% ( ) Numerical representation of the chess board 
D% ( ) Chess board 
AS ( ) Chess in character format 
XB, YB Position of player's next move 
xX, Y Position variable 
KX, KY Starting position for Commodore 16 
FS Flag for checkmate 
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Listing 


REM CHESS 

COLOR4, 10, 5¢COLQRO,10,5 

PRINT "Wl wz aw PtlLEASE,WATI TT" 

KKX=SFKV=R82D1IMB4CR,89,0%C6,8,29,P4%C6),ASCBISFOR W=i 
TO &SFOR KX=1 TQ & 


Read in Data for Pieces Representation on Board 


B“CX,WI=Q21F W=1 THEN READ BxCK,Y) 
IF W=R8THEN B%CXK, WI=-Bx%CK, 19 

IF W=e2THEN BxCk, Yo=-A 

IF W=?THEN BuCK, YI=1 

NEXTX,Y 

DAT AHR Ay 25-25-37 bs 3; e284 

FOR X=4 TO G6EPx%CKI=22FOR W=1i TO BSIF YC3ORV=8 
THEN DYCK, Y,239=4 

IF WOSAANDYCSTHEN DxXxCXK,Y,19=4 

IF YOSTHEN D“%CK,¥,19=-4 

IF WOSANDYCTTHEN DO%CK,Y,2)=-1 
NEXTYWSIF XCS2THEN 1990 

FOR vY=1 TO 4*READD%.0X%, 7,419,040, 4, 224D4CK, V#F, 19= 
~“DxON, WV, LISDACK, VW#F, 29=D4OK, 7,29 
NEXT 

DATA -2,1,-1,2,1,2,2,4 

IF X=1THEN PX%CK)=8 

IF ®S4THEN P“CKI=R1L 

NEXTSFOR X=1 TQ GBSREADASCHXISNERT 
DATAP,N,B,R,Q,K 

PRINT "Uy ""3GQTQ 62@ 


Clear All the Variables to Zero and Work Out Next Move 


XB=@2 YB=XBS DB=XB¢ CL=1¢ BP=XBS X=9S AX=KXSAVEKVSFASHS 
GOSUB 75@sFis=Fs 

FOR Y=4 TO 8$FOR X=4 TO 83TB=OSC=412TV=02TX=02D=0 

IF BxCX,YC4 THEN 620 

P=BX%CX,YSFOR I=1 TO 84D¥=D%CP,1,22¢DX=Dx%CP,1, 195AX 
=KXSAV=KYSCA=1SP0=2 

IF X#DXC1ORX#DX>RORY#+DYCAORY4DYD8THEN 530 

IF P>2ANDPCETHEN 448 

IF D¥>-1ANDP=4THEN 538 

IF YD4ORPDATHEN 362 

FOR 11=5 TO 4 STEP -14 

IF PXCTAIC2THEN PXCLAD=P%CIADF49B%CX, VI=TASTA=4 
NEXTI4 
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GOATQ S32a 

IF DXCOQ@ANDBYCK4DK, Y#DYID-ATHEN 53a 

IF P=6THEN KX=KSKY="2AK=X#DXtAVY=V"4*tD¥YSGOSUB T7403 

IF FS="4 “THEN S2a 

IF DX=Q@ANDRBXCK, Y#DYICOOTHEN 530 
PO=8-P-BYCX4#DX, V4+DV 3 

IF YC>TORDXCP@QRB“CX, 59CSOBORPOATHEN 530 

IF FAs="4 "* THEN GOSUB T7402IF FS=""* THEN 530 
IF FAsS=""4 "' OR RNDC19>.3 THEN Ci=2 

GOTQ 52a 

M1=KSV1=¥ 

IF P=3ANDINTCI 229"2CIT THEN 330 

IF P=4ANDINT CI 429"2=ITHEN 530 

IF XL#DXCAORKAFD XS BZORVAFDYCAQRVYAFtDYOBTHEN C1i=C1i-1% 
GOTO 53a 

IF BxYCX14D0%, YI tDVYISOOTHEN C1=C1-143GOTO 330 
POQ=8-P+#+INTCRNDOC1)9#3)-BxCM14DX, VItDY IS 

IF FAsS=""14 “THEN GOSUB 74@Q@3 IF FS="""*THEN PO=P04#509 
GOTQ S7a 

IF BMCK1L4#DX, VIFtDYOCSATHEN 32a 

CA=C1A*+12 X1A=H14*DXSV1A=H"¥14+DYFGOTA 470 

IF PO=ATHEN S70 

IF Fis="41 "THEN GOSUB 74QSI1F FS="""THEN PO=P0#*509 
GOTQ S7a 

IF FAS=""THEN GQOSUB T7403 IF FS="4 ""“THEN PO=@SGQTO S57 
@Q 

IF PO=STBTHEN AX=K4DXRCASAV=V¥*DVYHCASGOSUB T7409 IF FS 
="4 "THEN PO=P0-Px2 

IF PQSTBTHEN TB=POSTHR=XSTY="¥2D=12C=C1 

NEXT I 

IF TROBPOPTB=BPANDCRNDC19>.90RCTYCYBANDRNDC19>.5959 
THEN BP=TRBSXB=TXSYBH=TYSCL=CF0B=D 

NEXT, VSP=B“CXB, VBISXL=KXB*AD“CP, DB, 19*CLEVI=VYBtD“ CP, 
DR, 22*CLSIF F=H=6BTHEN KX=KASKY="41 

AN=KXSAVHFKYS BY CX, VII=BYCXB, YBISB“CKB, YBD=@Q2Q=19 
GOSUB 75@2Q=@ 

GOSUB 84a 


Check If a Checkmate; If Yes Then Finish Game 


IF Fs="4 "" THEN PRINT “I8] C HE CKMAT E "9 
END 

PRINT "HWW Y¥aOuR,A NOV E *SINPUT (“WY FROM 
"S48, 7STF x%=9399 THEN END 

PMP UT Oo. Go hE AS KB VB 

IF B“CXB, YBISQTHEN PXCB“CXB, YBII=PX%CBACXB, YBI)-1 
BU CMB, YBI=B“CK, YW) 

RuCK, VI=0 

IF BYCKB,VBIC-1AQRYBCRTHEN 728 


m 


mix) fH) 


gw ) -~ MN 
g_gsonn & 


INPUT "P I ECE S 4, ";ASSFOR 14=1 TO SSIF ASCIAD 
=AS$ THEN B%“CXB,YBI=-I1 


NEXT 
GOSUB &4¢a 
GOTQ 244 


PC=BYCNF#DNC1, VtDVRCLI ISB“ CXK*DXEC1L, VADVRCLII=B“CK, VS 
Buc, 'VI=@ 

FS=""4FOR P1i=41 TO G6SFOR 14214 TO 840D1=D%CP1,11,192De2 
=0%CP1,14,299L=1 

IF AN4#D1%LCAQRAX4+DA¥BLOBORAY*#D2RLCIOR AVY4D2NLOZ 

THEN 8am 

IF PI=AANDD2CAANDQ=OTHEN 8@@ 

IF BYCAN4D1i*L, AY+D2¥"LX=-PATHEN FS="4 "SGOTO 810 

IF PAD ZANDP1CEANDBY CAX4D18L, AVY4+D2"LD=OTHEN L=L+1¢ 
GOTQ 76a 

NESTT41,P4 

IF ¥>RTHEN 838 

RUCK, VI=ZFBKCK*ADNXMCL, VEDVRCLAIS BY CKX*#DX*RC1, V*DVRC1I > =PC 
RETURN 


Print Out Chessboard and the Cartesian Co-ordinates 


PRINT *PRINT SPRINT ¢PRINT SPRINT SPRINT SPRINT 

PRINT "WER a. a aw wa www wwe wm mw 1 23 45 

6 7 8 W “SFOR Y=8 TO 1 STEP -A¢SPRINT "2 a2 wo a2 wo ow 
a a i ti eB! wey 5 

FOR X=4 TO &SIF BYCXK,YICOOTHEN 8990 

IF INT CCM+¥> -2S82=N4YTHENPRINTS lf a 2, 5GO0TO Seo 
PRINT™.";2GOTOQ 326 

IF R“CK.VYICOTHEN PRINT “Il "5; 3GO0TO 910 

PRINT "fa "'; 

PRINT ASCABSCBYCX,9)I); 

NEXTSPRINT SNEXTSRETURN 
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ChexSum Tables 


1@ = A 22a 
2a = 1172 33a 
320 = 1365 3490 
42 = 4458 25 
i) 4) = 2@a49 26a 
6a ARTS 2708 
7a = 1479 ABA 
Ra = 43205 397 
aoa = 362 4AQ 
1Aaa A137%e 419 
114 = 4203 4A 
12@ 19354 42a 
1320 = 45832 JAA 
14a eisi 450 
150 1294 46a 
16a = 6204 ATA 
17a = A134 ARA 
1zk® = 1003 4a 
1304 = A172 SAA 
20a = A172 541A 
21a = 1591 52A 
228 = R852 520 
23a = ARE 540 
24a = BORE 55. 
25a 3667 atts) 
26a = 1169 S70 
27a = §6@36 =2H 
2ka = 3803 saa 
298) = 1320 BAA 
20a = 4584 B10 
218 = 1326 B2a 
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Mind Quiz 


CLASSIFICATION: LOGIC 

The computer or an opponent will generate a sequence of four 
random numbers in the range of three to eight, represented by the 
six number keys. You have to guess what the four numbers are by 
pressing the right sequence of keys. You will get seven chances to 
guess the numbers. After each guess, the computer will respond 
by printing aO for the right colour in the wrong spot or a ®@ for the 
right colour in the right spot. 


PROGRAMMING SUGGESTIONS 


Add another digit to the number of colours which the player has to 
guess, giving an extra dimension of complexity. 


8/ 


PROGRAM 


Variables 
D$ Message ‘Instructions Y/N’ 
A$ Response to input 
Y Flag for end of game and screen position of 
beads 
X General purpose variable 
G$ Response to colour bead input 
D% Array containing random numbers 
B% Array containing input numbers 
88 


Listing 


310 
320 


REM MIND QUIZ 
COLOR4,2,5¢COLOR@,2,5¢VOL 8S4COLOR2,5,6 
PRINT CHRSC3)CHRSC142>¢PRINT hy" 


Put Border On Screen; Instructions or Play Computer? 


FOR X=3073 TO 3L103POKE K,642NEXT 

FOR. X=3112 TO 3992 STEP 403POKE X,93¢NEXT 

FOR *=3151 TO 4031 STEP 4Q0SPOKE X,93¢NEXT 

FOR ®=4033 TO AO7TOSPOKE X,643NEXT 

POKE 3@72,85 

POKE 3111, 739POKE 39032, 743POKE 4071,75 

PRINT “7S G7 (8 00 OP a ae ce ae Ek, ce a a Ne a Dae se 
a a TO a ee es a I a Se ee ee 

DITIAX C49 SDITIBKC ADS DITDZC 4) 

De da es ae a a Ee a a TO SOE OR: Ue FP LE ee NS a 


: ‘eo 
Pee ag OE ee ee a a ae es 


PRINT "(e) t ° 

PRINT "“O BBG "";0SSFOR X=1 TO TSISNEXRT 
DS=DS4tLEFTSCDS,1)3DS="ID$C0$,2, 36> 

GETASS IF ASCO"N "ANDASCOY "THEN 148 

GOSUB 680 

PRINT “SH W "SPCC189'9T1T > «2 PLAY, ME "CHRSC1I13) 
SPCC189'W S>,.PLAYW,A SONEONE,AELSE " 
GETASSIF ASCD"TT "ANDASCS'S "THEN 190 

PRINT “3 tf) "SPCC189"%, «2 «2 wa oa wa ow ow ww ww “CHRSC13) 
SPE CARO ee as ae Gas Sm ee es a ee es a a Se, GR ae 
IF AS="T1 ""THEN GOSUB 7902GOTO 280 

R=1 

FOR x*=1 TO 4 

GETASSIF AS=CHRSC2ZQ.ANDXSAITHEN X=X-1¢R=R-2SPOKE 331i 
S#+R,160 

IF VAL CASI C3ORVALCASIDSTHEN 24540 

AXCXI=VALCASISPOKE 31154R, 81 

R=R#t2SNEXT 

GOSUB 77TO 

PRINT “SH "SPCC32.° "HW UUUU ES =~ e@UUUHUna 4 
=~ e@MUUMHHMNDAS=- e@e UUUHHNHHS =~ eu 
Paro TH Oe MMH Ndoe es Heo” 

VY=R40SR=1 


Print Your Guess; Make Sound; Input Player's Colour 


PRINT "S "SPCC250""Y OUR, GUESS " 
SOUND 2,19,193 
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3) nS) ne ee) 
AahKwWNe 
Sa qooaosa 


naadwdnq 
QYww =a) Mn 
Ose 8 a gy 
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FOR 
PRI 
FOR 
FOR 


GETASSIF AS=CHRSC2Q2ANDXSATHEN X=X-12R=R-22POKE 3441 


O+R 


“=1 TO 32503NEXT 
OP Eee OD « 


NT RY 


ee ae % 


Ye ee ee ee ee ee a ae % 


S=1 TO FEDKCKI=AXCRISENERT 


X=41 710 4 


47,32 


IF VALCASIC3SORVAL CASIDRSTHEN 370 
RuCXI=VALCASISPOKE 31154R4+Y,842POKE 20914R#tY,B%CXD 


4. 
R=R 


FOR x=1 TO S31F BXCKI=DKCXITHEN GS=GS+"'@ 


3386 
NEN 
IF 
IF 
IF 
IF 
Le 
IF 
IF 
IF 
IF 
IF 
IF 
If 
PRI 


t22NERT 


“CHI=L254 
t 
D.C 192 =Bx C29 THEN 
Dx CL19=BxYC3I THEN 
D.C 19=B%C 45 THEN 
DC 29=B“C19THEN 
D%C2)=Bx% C3) THEN 
“%C22=BxXC4) THEN 
DC 39=RBX CLI THEN 
“~C3)=B% C2) THEN 
D%C39=B%C4) THEN 
“CF =BY CII THEN 
D%C49=BxC29THEN 
“2042 =Bx C32 THEN 
NT “EY "SFOR X=41 


GS=GSt"'o 
GS=GSt"'o 
GS=GSt''o 
GS=GSt"’o 
GS=GS5+t"'o 
GS=GSt"'o 
GS=G$St''o 
GS=GS$+t"’o 
GS=GS+t"'o 
GS=GSt"'o 
GS=GSt"'o 
GS=GS$+t"'o 


TO CCW¥-40) /40 SPRINT 


NESTSPRINT SPCCARD"H] "GS 


IF 


Y= 
GOT 
IF 


PRI 
RU 
PRI 
‘Oe 
PRI 
a F 
PRI 
KOE 
PRI 
rT A 
PRI 
QL 


GS="@ @@ e@ 


-1202GS=""SR=4 
Q 310 


AS="N ""THEN 7a0 


"THEN DS=""Y E S 
IF W=12QTHEN DS="N O 


"> >GOTO 


"> D“4C19=2559Bx%C29=254 
"7 D%C19=2553B%C39=254 
"7D0%C19=2552B%C4)=254 
"°° D4~C29=2553B%C19=254 
"2D04%C29=2553B%C39=254 
"5 0%C29=25523Bx%~C4)=254 
°° 04039=2552B4%C1)9=254 
"2 D4AC39=2553BxC29=254 
"7 D4C39=2553Bx%C49=254 
"7 D4%C99=2553B“%C19=254 
"2 D4%C 49 =2553Bx%C29=254 
"704099 =2553B%C39=254 
os) ee 


",7GOTO 820 
820 


Print Instructions; Try Again? 


NT 
Cc T I 
NT 


OO NS % 
"1) TY IN. T 


“he YM) id a a a» a ~ a a a a» a ry a 


tn ee ee eS 


HIS 


a GANE 


INS T 


oe 
a & a ae ra cy a a ry 


ae OEY ae OT A SE ae ED TP TB OR a ce ke ee 
OR.AA,ZA HUTPSTIAN, QA PONENT 

NT TW. Y AU,AHAVE bBrO& .2cCHANCE S 
Q ,24C RACK DoE ge COND “EO * 
NT "Mm TO,ENTER, COLOURS ,ZUSE 
YSaa.83B.a.e4,L FSLZWS6,LAZeE?T.L eB o 
NT "MH .2 ow ow aw PRESS ,ZODdDEL,AIF grou 
ROB ws Ae a EP ST A KR oR 
NT“. 2 iw OO. w.2ZAMNEANS,Z RIGHT, 


oO UR ,.R I 


GH T 


a3 FO 


"2D“CKI=A25 


PRINT ", , MM.20 .2,24TTEANS,ZARI GHT.,C 
OLQUR,AWRONG,ZASPOT " 

PRINT "BoWWW.a. «2 wa a maoo ea PREeSS,ZARET 
RN og Ge a OST A RE a ae ae a Gs a ee 
GETASSIF ASCOCHRSCI3> THEN 6990 

PRINT “hu "'. 

FOR *=1 TQ 8 

PRINT "%) 2. «2 w2P UMMM MM mle a ew wwe eee 


a a» -~ a. »~ az »z a a» az a a a a a a ~ ~ a a a a t: ~» » a 


NEXT 

PRIUNT oo 4 « PS fe fe fe OR ae ee a 

PRINT "HUM UNMUMT OUMNH oOUeN. 
WUHOW NH U MO! eon! 

FOR X=1 TQ SSFOR Y=Q@ TO 2¢POKE 3074*K4+V#40, 1602 
POKE 2069+#%+'7#40,142NEXTY,X 

RETURN 

FOR N=1 TO 4 

FOR W=1 TO 32E=RNDC1928#5439SNEXTY 

AX CXI=ESNEXTSRETURN 

FOR X=1 TO 4¢POKE 34116+C,814POKE 20924C,AXCRISCHC 
42 9NEXRT 

PRINT "S] ";2I1F DS="N O "THEN PRINT SPCC169"B AD a 
Luck, ITwzAWAS,ATHIS" 

IF DS="¥ E S "THEN PRINT SPCC169"G OO D,AONa, Y¥ 
OU ~@ VOU 6. GOT « FT" 

PRINT "HWW "SPCC160"°"P LAWYALAGAINAYWY/7Na 
> 1 

GETASSIF ASCO"'N ""ANDASCO"'Y ""THEN 8690 

IF AS="N “THEN POKE 90,02SYS 0 

RUN 


a 
v 
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ChexSum Tables 


41@ = @ 31@ 
2a = 1983 2208 
3a = 1439 238 
48 = 1729 34a 
5@ = 2@16 35a 
Eb@ = 2A16 36a 
70 = 1722 378 
LA = S323 BRO 
aa = 475@a 3298 
1aa = 2294 40a 
110 = 1376 41a 
12@ = 2568 420 
134 = 266 43a 
4140 = 16923 440 
15a = 2231 45a 
168 = 22322 460 
17@ = 298 470 
18a = 4416 42a 
19a = 2222 428 
2AM = 2002 Sag 
218 = 1624 318 
22a = 312 52a 
230 = 6708 33a 
242 = 4AR2 348 
25a = 1367 S5@ 
26a AT61 S6a 
27a = 778 57a 
2RA =  3A3 Sea 
29a = 7348 =aA 
3a0a = £22 6Aa0Q 
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Penetrator 


CLASSIFICATION: Shoot Up 
You are the pilot of a spaceship which must land and pick up a 
stranded pilot. In front of your vehicle are three mountains filled 
with multiplying aliens. You must move your ship up and down with 
the Q and Z keys to target them, and destroy as many as possible 
by pressing the SPACE bar. 

When the number of aliens gets below five you can land and pick 
up the pilot — but you must be quick! After picking up the pilot you 
move onto the next level. 


PROGRAMMING SUGGESTIONS 


steadily increase the size of the objects that you must pick up. 
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Program 


Variables 
S$ Spaceship 
T$ Spaceship blanker 
D$ Move down a line 
B$ Move back a space 
Be start of screen memory 
C Column position of spaceship 
R Row position of spaceship 
PO Position of multiplying aliens 
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Listing 


4A REM FENETRPATOR 
on COLOR4,6,2 
Build the Spaceship, Pilot, Backspace Variable, Column 
Position 
2a BS="HF "“4DS="E] "4SS="27 “™ \ “4DS4BS4+BS4+Rseys 2 oy "4#Ds 
tRStRStRS*erN Zi 
An TS="_, 2 2 4, “4DS4+BS+RS+BSt+BSt", 2 2. , "4DS4+BS4+BS+4+BS 
4BSe". 2 ,. 2 " SBE=3072¢GOSUB 57a 
=A GOSUB 4507GS=" 2. 2. SB "SMS="0 “4DStBSt'} " 
68 VS=""_ "4DS4#Rse, "4 
7a FOR I=141 TO 4M4*CCS=CCSe BY “*NEXT*FOR 1=4 TO 254RRS 
=RRS$4"O]) "SNEXTSPOKE 208,124Q=208 
RA CO1)0=A400629=124003)=24 
an CACA2=2401029=204010639=32 


1aa C=CCAIXFR=ERZSPOKE 202,CePOQKE 205,RePRINT "2 "559;,5C14 
H=CACLIFE=OFLV=ELV-.1 

11 FOR 1=4032 TQ 40@32+393PQKE 1,16@Q@3NEXT 

12@ PPINT "KY "“;LEFTSCCCS,2);,;LEFTSCRRS,229;MS; 

120 FOR I=41 TO 2 STEP Q@ 

14@ A=PEEKCOISIF A=B2THEN GOSUB 330 

4158 IF A=A2THEN GOSUB 35@FELSEIF A=6@AQTHEN GOSUB 4320 

168 IF ETHEN GOTO 198 

17@ GOSUB 3RAQ2SQUND 2,4,4 

1z%@ A=19R NEXT 

130 C=C C29 CA=CAC2SIF E =A CN=07R=3 

aBa PRINT “Ry “";LEFTSCCCS,14);LEFTSCRRS,229;MS;2POKE 400 
9, 772Q=208 

2108 FOR IT=41 TO 2 STEP @SA=PEEKCQISIF A=GB2THEN GOSUB 330 

228 POKE 4004,77 

23a IF A=12THEN GOSUB 2503ELSEIF A=6O0THEN GOSUB 4320 

24a Q=19271F ETHEN 2680 

25a GOSUB SRASSOUND 2,4, 49NEXT 

26a C=C C397 CA=CACAIF E=O02CN=05 R=37Q=208 

278 PRINT "RY "";LEFTSCCCS$, 26); LEFTSCRRS$,229;MS; 

2kA FOR I=4 TQ 2 STEP @ZA=PEEKCQIFSIF A=62THEN GOSUB 332 

<3a IF A=12THEN GOSUB 3303ELSEIF A=60THEN GOSUB 430 

3A@ IF ETHEN 108 

318 N=19RSGOSUB B2RBSSOUND 2,4, 49 NERT 

320 STQP 

33@ IF R=ATHEN RETURN 

340 POKE 2@2,C+FQKE 20@5,ReEPRINT TS; 3R=R-1SPOKE 205,RE 
POKE 2@2,CSPPINT ", "SS; SRETURN 

35a IF R=18THEN IF CNC=STHEN GOSUB 610 

36a IF R=ASTHEN PETURN 
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POKE 2@2,C3PQKE 205,RSPRINT TS; FR=RtisPOKE 205,R% 
PORE 202502 F ELH °**y. “3:59.54 .RE1 URN 
N=S4+INTCRNDCAIMLVELADIIF NCSTHEN 3808 


Scan the Keyboard: Move Ship Up or Down 


IF MNOARTHEN FPETURN 

PO=BE4CN#4@).4#C149IF PEEKCPOX=32THEN POKE PO,&84$CN=CN 
41*GOSUR 42@2S0UND 1,5,52RETURN 

RETUPDI 

POKE 2@5,@*PQKE 202,@2PRINT ", ";4PRINT USING # # 
m3 CN; 2RETURN 

PE=BEt+CR¥49)04+C4121F PEEKCPE)=84THEN PQOKE PE,32¢CN=CN 
-4* RETURN 

PETURN 


Print the Three Mountains; Set the Difficulty Level 


PRINT “Su "'; 

FB es Sa. ke las da a a las es Gs a aw es as EE POE, OP OR A 
A OS ee es: ee aS GD ROE MF a ce eae ee 
PRINT SPRINT PRINT 


PRINT 


PPOTEREE Clay Sas a dae a I kd ose, ee, et et NS A i Sd a ee ee as 


a ‘“ a a» a ~ a 7 a a a a » ‘ _ 


PD. OMY ge oa R = 


s 
~ ~ a ~ a Lid a a 
a ~ a» » a» 


PRINT eres a a a ~ Ld a a» a a a ~ ~ = a a a» a a 


La a a 
~a kh & fh Mf = a ah &» & A ia aL & & & & A = = 
PRINT 78 ig » a hf x ye ee ee ee 7 = aL SUC ld a f 
~a es he A = 7 ee a, a ae 13 ~a hk & A & me AM = y 


| | | aa 
»~ ~» »z am a a a a» a a» ~» a a a a a a —— 


PRCT RE Ph. kate a es oS a te a me Na ee a a Ge 
a Nc at Sa a Sle a, Se a a NS 

RETURN 

SCNCLRSPRINT "D ITF F IT CULT YWY,atLiEVEL, 1A - 
BoA Re CERES. Ts aS Se TE. SA PE “Se ot Pg 

GETUESS IF WES="""THEN 28a 

IF WESC™A “"QRWESS''S "THEN Ska 

LVHVALCLIES XS RETURN 

REM 

IF C4A=R8THEN FRINT “RY ";LEFTSCCCS$,253;LEFTSCRRS,22)9;V 
S$; 

IF CA=2QTHEN PQKE 3966, 322PQKE 40@6, 322 


640 IF C1=22THEN PRINT “RY "Z;LEFTSCCCS,26);LEFTSCRRS, 22) 
>VS; 

65a PRINT "RY ";LEFTSCCCS,190);LEFTSCRRS$,2);"P I LaAaT , 
RESCUED "5; 

66a FOR HJ=1 TO 399O9¢NEXT 

67a PRINT “RY “;LEFTSCCCS,10>3;LEFTSCRRS$,2);", 2 «2 aoa 


63a PRINT “BY “;LEFTSCCCS, 339;LEFTSCRRS,@0)9;"la "3 t 
PRINT USING'# # # # "|;SC;S¢PRINT "m@ "; 

TAA VE=1SFOR I=1 TO 3 

71a PRINT "EY “";LEFTSCCCS,VED;LEFTSCRRS,RD;TS;9CN=OFE=1% 
VEH=VE #12 

720 NEXT 

730 FOR BV=5S TO 1830F=BE+CBV*4Q0)4+CASPQKE DF,32¢NEXT 

74a PETURN 


ChexSum Tables 


1a 7 a) 26a = 2R2RQ S410 = 246i 
20 = 426 270 = 2A25 520 = 2464 
2a = 6464 2k = 2702 530 = 2464 
42 = 6ARS3 29a = 2220 54a = P4ARi 
al = 23946 22a = 537 55a = 295k 
68 = 41379 21a = 1582 SEA = 443 
7A = S17R 320 = 4145 570 = 2635 
RO = 1629 23a T62 58a = 413294 
aa = 4819 24a = 4AAs 590 = 4754 
10a = 4726 250 4892 6A = 1028 
4119 = 2A52 360 = R24 61a = Qa 
120 = 1964 27a = 4@65 62a = 2706 
13@ = 886 38a = 2ea4 63a = 4824 
14a = ABR4 29a = 820 54a = 2847 
45@ = 228A 408 meee =) 650 = 2193 
169 = 922 418 a eS 66a = 1053 
17@ = 857 420 errs 6B7Aa = 2527 
18a 624 a3 7 SASS BRA R29 
19a = 2382 440 = ae 69a = 32606 
2aa 34168 458 =. <a 7Aaa = 1142 
218 = 27802 46a = 3136 71a = 3244 
220 = S25 478 = Sas 72a = 434 
23a = 2220 Aza = JSS 73a = @256 
24a = 1A7@ 43a See (2 74M = 143 
258 = 41A62 =Aa = 2964 TOTAL = 154194 


a7 
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Dragon’s 


Lair 


CLASSIFICATION: Adventure 


Move through the Dragon’s Lair in search of treasure but be 
careful, a fire breathing nasty is wandering around this place and 
he isn't too fussy about what or who he eats. You have a number of 
Commands to move to move through this world. They are: 


COMMAND 

go left 

go right 

go forward 
pick-up ‘object’ 
examine ‘object’ 
drop ‘object 
recover treasure 
Slay monster 
spell monster 
gaze -!nto palantir 


FUNCTION 

Move left one location 

Move right one location 

Move forward one location 
Pick up given object 

Tells you the name of the object 
You guessed tt!! 

Adds treasure to your hoards 
Only if you have a weapon 
Only if you have a magic staff 
Reveals important information 


She, 


PROGRAM 


Variables 
O% Number of weapons 
O$ Weapons 
PO Strength 
TR Treasure 
D Place 
C Object 
N$, V$ Input instructions 
P Flag number of words input 
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Listing 


1a 


COLOR4,&8,3; COLOR®O,13,33PRINT CHRS$C14) 
PO=4157DIM0%039,05C3393TR=@ 


Read in Objects; Generate a Random Environment 


FOR I= TQ 34READOSCID*NEXT 

DATASLIORD, STAFF ,PALANTIR, TALISMAN 

ON CINT CRNDC19%29)=4 

PRINT "NH WCEQU.AHAVE,Z ENTERED "4 

PRINT "A , "; 

D=INTCRNDC4)%#4)24IF D=OTHEN PRINT "WEN 22 EVIL, S 
MeEtLLING”" 

IF D=4THEN PRINT "HOMEL ¥" 

IF D=2THEN PRINT "DANK ,.2ANOD,AWET'" 
IF D=2THEN PRINT "DARK,MNYWST I 

D=INTCRNDC412#4419SIF O=1THEN PRINT ", BARN" 

IF D=2THEN PRINT "2 DUNGEON" 

IF D=3THEN PRINT "2 CASTLE" 

IF D=4THEN PRINT "2 TOWER" 

C=INTCRNDC412#624PRINT ", WHICH, CONTAIN 

Soe MS CIERC 

IF C=OTHEN PRINT "T1 ¥ S 
. “£0=INTCRNDC 194) 

IF C=1THEN PRINT "BOOK 
IF C=2THEN PRINT "HOR OD 
IF C=3THEN PRINT "S TIAL L,zZANIMAL,«ZRUMMNA 
GING,ZAIN,zATHE,zACORNER.* 
IF C=4THEN PRINT "TIO NSTER,ZAGUARODINGaA 
ro @. 
IF C=5THEN PRINT "DRAGON,ABLOCKING,Y 
goUR,ZAUHUAYW."™ 

IF CC3ANDRNDC412>.6THEN PRINT "9: HE REwIS.2AL 
SO ae “A a a dk a ok as a FTO EST R: « "SC4ss 

IF POCAITHEN PRINT "a #: HOUGAA T.ASLAING 

"*GQTO 1019 

IF POCASTHEN PO=P040%¢3> 

FOR I1=@ TO 34IF RNDC19>.9THEN PO=P0-O0xC¢1) 

NEXT 


re) 


ag 
m 
A 
i 


QOUS,ZA OBJECT 


OR 3. eR ee eG, Bo te FF 
GO.F 4 T RR EOR Ss UR ee 


Mm > 
> 


E 
R 


Input a Response From Player; Check What He Did and 


Counter 


PRINT SPRINT "@ HAT .~N OW "S INPUT AS 
VSH=U™SNSH=""SP=13FOQR IT=1 TO LENCAS) 
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WwWwWwWhr 
We D 
Aaa g 0 9 


RWW WW Ww 
ho PO 3 ey 
Qasaooy 


IF MIDS$CAS$,1,19=", “THEN P=2%GOTO 320 
IF P=4THEN VS=VS4IMIDSCAS,1,19 

IF P=2THEN NS=NS4IMIDSCAS,1,1) 

NEXTI 

PRINT "hy "VS". UNE Ey oF 

IF VS="S LA WY "THEN 568 


IF VS$="G 0 "THEN 620 

IF VS="P 1 C K - U P "THEN 650 

IF VS="E xX ATI N E "THEN 6890 

IF VS="D R O P "THEN 720 

IF VS="G A 2E - INT O "THEN 750 

IF VYS="S P EL L "THEN 830 

IF VS="R EC QV E R "THEN 9320 

IF VS="R E AD "THEN 970 

IF VS="I N VEN TOR YW “"THEN 10190 

PRINT "maar a2 DON 7 T,ZUNODERSTANO.. B's 


GOTQ 230 
IF COSANDRNDCLIO>.TTHEN C41=Citi 
FOR I=1 TO TSQSNEXRT 


Print the Countering Message From the Computer 


IF CA=1ANDRNDC19>.9THEN PRINT "J: HE «~2R OOF « F 
ALLS ,. IN ! "SPO=P0O-22G0TO 230 

IF CA=2ANDRNDC19>.9THEN PRINT ""EQ UU, FELL, OD 
DN a OR ae Pood Tg TON wT HCE. es Fk OOo R 5. “*SrO 
=PO>2.-G0TO. ‘230 

IF CA=3THEM FRINT "FJ HE ~AN IT MAL, KEEP S 
ae SS ee cae DD OP CSP: Re NG EB ee 

IF CA=4JANDRNDCA>.6THEN PRINT "J? HE .2MONS TE 
RafADVANCES. * 

IF CASSTHEN C1=5 

IF CACSORRNDCAIC.7TTHEN 230 

IF RNDCA9>.7THEN PRINT "EE «2K ILLCS,zYWOUE!E" 
7PO=AlSGOTQ 16190 


GOTQ 230 
PRINT “§: HE jz MONS TERAATTAC K Sia a a 
YOU . "SPQ=PQ-INTCRNDC15%4) 


IF CAC3THEN PRINT "9: HE RE.zZIS,zANOANONS 
TER. "3GOTO 45a 

IF O4C@)=@THEN PRINT "FH FOU,A HAVE .ANO.LANHWE 
A PON S ' G "3G0TO 450 

PQ=PO-INT CRNDC19%3) 

IF C=SANDRNDC19>.6THEN PRINT "§: HE «~z4ODRAGONa«, 
LIVES. "SGOTQ 450 

PRINT “YJ: HE.zBEAST,zA I S,AZAOdDEAD. "$C1=0 
GOTQ 456 


IF CA>2ANDRNDCAICCA/TTHEN PRINT "§: HE « 
ER,.AWQN’%7T,AZLET,A YOU. "“SGOTO 450 
IF NSC>O"L E F T “ANDNSCO"R I GH T “ANDNSCO"F OR W 


AR DS "THEN 390 

PRINT "FF K "3GOTO 60 

IF NSCOQSCO THEN PRINT "J: HE RE a 
7GOTO 4560 

O%COI=OX%COIFASPRINT "FT K "” 

GOTQ 454 


IS «a 


N 0 


MONS T 


"NS 


IF CAD>3THEN PRINT “Ji HI SAZANGERSG,A THEa 


PEAS T "SCi=C1itisGOoToO 460 


IF COOTHEN PRINT "§: HE REw.TS.2NOT HIN G 
"SGOTO 450 


a 


PRINT "$: HE ,«zOBJSJIECT,ZA TURNS .AZOUT aa 


LO 2 BB eA a “OS COO, ™ 
GOTO 45a 


FOR I1=@ TO 391F NS=QSCISDANDOXCID=OTHEN PRINT 
2PON  TAZAHAVE,.A A. PNSSGOTO 459 
IF NS=OSCIOTHEN OXCII=Ox%xCI3-130=I1 SPRINT 


NEXTSGOTO 450 


ad K 


IF NSC>O"™ AL AN T TIT R "THEN PRINT "S$ OU yg 


“Ta GAZE ZBAT a THAT 


IF O%C29=QTHEN PRINT "SEO U .2OD ON 
IF RNDCA9>.3THEN 810 


rd 


T 


*">GOTO 4350 


HAVE 
"SGOTO 45a 


A 


"EO OU 


N 


a~ 


IF RNDCL19>.5THEN PRINT "J: HE «zGL.OBE ARENA 


INS .2BLANK . "3GQTQ 459 

IF RNOCAI>.STHEN PRINT "Sb OU UF 
MoS T EF, LURK ING, IN, T 
OWS . "“SCA=3236GQTQ 49a 

PRINT "FQ U.S EE. A, G 


TREASURE,ZAIN, YOUR, a2 a aw a 


NEF WY S "SG60TO 230 


PRINT ""EQ UU, F EEL gz WE AK ER 
PO=PO-13GOTO +450 


I 


N 


IF Q*%CA>D=@Q@THEN PRINT "FO U .2HAV EN 
a. CE oA Seg PO a OR Se 4 So RPE & eS. 3 


GOTQ 23a 
IF NSC>"T1 0 N S T E R "*THEN PRINT “IE 


TaSPELULL,A THAT. "*sGOTO 450 
IF CAC3STHEN PRINT “9: HE RE wgz~I Sa 
TER. "SGOTO 230 

IF RNDCLI3¢.8THEN 890 

PRINT ""—§O UR, SPEULLaAFATIL 
PRINT "Ss! T zHAS ,ANGERED as, 
PEAS T . "“"3C1=CitisGOTO 460 
GOTO 4560 


PRINT "$9: HE «z S PELL,AWORKE 


0 


N 


E 


U 


0 


D 


rd 


‘*§ O UR 


Toa TtHE 


aCcCAN ’ 


a MTON S 


aan IF RNDC49>.6THEN PRINT "SE UT, YOQOUR,ASTAFE?’F 
~SNAPPEOD,AZUWITH,ATHE,ZASTRAIN 
"eauc4.=0%C49-4 
a1a GOTO 2239 
a2a IF CCD>2THEN PRINT “Si HE REa.IS.z2zNOTHING 
~TO,, .2.RECOVER. "*G60TO 450 
330 IF NSCO"T R EAS UR E “THEN PRINT "THAT ACA 
AG OE i OR ee Ber ke BR BO ee: Se 
*GO0TO 4ne 
340 IF CAD>2ANDRNOC41)>.3THEN PRINT ‘$2 HE ~~ MONSTE 
Rwz2Wwan’T,zLLET,z YOU. “*C1=C141*G0TO 460 
asq TRETR+INTCRNDC4131913410a 
960 PRINT "™ K “*2GQTO 23a 
372 IF CCODATHEN PRINT "TE HERE, 1 
"2GOTO «a5@a 
AZO IF NSCD"B OO K “THEN 4a@ 
3990 PRINT ““EOU.ZFEEL,FAINT "“*P0=PQ-2 
1988 GOTO 230 


UW) 
> 

a) 
> 

0 8) 
OQ 
a) 
x 


101@ PRINT "SEO U .ZHAVE “PONS TRENGTH*" 

182Q PRINT "TEQ UAZHAVE “TRS IL VE R “SPRINT "CQ 
TN SS. agi 

4920 PRINT ‘SEQ U,.ZHAVYV E "4FOR I=@ TO 34¢PRINT OxCID0$ 
C123 


1090 IF OXCIACSATHEN PRINT "*S "%; 
19050 PRINT NEXT 
1960 IF POS@THEN 45a 
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ChexSum Tables 


1a = 17280 3270 = 4142 73a = 23A23 
28 = 1716 Bea = 4215 TA4aA = 71a 
3a = 41356 3290 = 4557 75a = 4675 
4a = 2545 4A = 1296 an3 4) = 4456 
50 = 4299 410 = {1447 7TO = 1108 
6@ = 22332 42a = 1195 72a = 2984 
70 = 2567 430 = 41688 79a = €524 
RO = 133@ 44a = 2648 RAH 5475 
a0 = 4175a 45a = 2417 R410 = 4565 
1a@ = 1748 41608 = 964 ROA 4352 
11@ = 27a7 437A = 4922 R2AA 51649 
12@ = 1462 Aka = 6515 Aa 42123 
1302 = 1384 faa = 3676 L500 = RPRG 
14a = 13204 =a = 2729 REA 41105 
45a = 233145 510 = 1036 RTA = 65237 
160 = 3558 52a = 164a FRA = 5329 
47@ = 2080 530 = 35@92 RIAA = 2134 
12a = 2266 54a = S52 aaa E245 
43a = 232964 BSA = 4A76 31a = S2k 
208 = 24297 56a = 3292 32a = 4352 
210 = 2824 S78 = B2541 aaa = ‘5121 
2208 = 4637 Sze = 41516 ada = 5629 
22a = 3112 590 = BRAD = bead‘) = 1994 
248 = AT4R BAA = PAG2 36a = 1120 
250 = 2759 B10 = 52a a7a = 2163 
26a = 431 62a = Sari aga 41366 
27T7O = 15393 6320 = 4264 aga = L2eAR 
22a = 244 64a = 1a74 AAaAaAD = 528 
2908 = 24196 65a = Beie 14910 = 1959 
32aea = 19243 EGA = 4625 14020 = 2671 
321@ = 192@ B7A = 53a 103208 = 2742 
32a = 206 BRA = 4255 4090 = 1493@a 
23a = R67 63a 4132 AAsea = 342 
24a = 121416 7TaQ = 234119 AQEO = R74 
350 = 41A32 71a = 53a TOTAL = 3210526 
26a = 14214 Te = 516a 
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Crash Barrier 


BiG Sree. ae ae 
ae eo ‘ei 


Ge 3 F533 Sek See 


ce RLU EU SEE 


CLASSIFICATION: Evasion COLOUR ILLUSTRATION OBC 
Test your skills as a high speed driver. Race around the track 
swapping lanes whenever you feel like it. Usethe1,P,Q andZ keys 
to move the car around the race track. The longer you can move 
around the track, the more points you score. Periodically a barrier 
will appear between the lanes and you will have to swerve to avoid 
it. The longer you survive, the more frequently crash barriers 
appear. 


PROGRAMMING SUGGESTIONS 


Adding a gear stick to the controls of the game would give players 
more choice of play. Also throw obstacles such as mud slicks into 
the outer lanes to make the driver's life even more torturous. 


Os 


PROGRAM 


Variables 

oC Start of screen memory 

CO Start of color memory 

PO Car's position on screen 

E Flag to indicate end of game 

R Row position of car 

C Column position of car 

QL Number of barrier to erect (1-17) 

R1 Row vector of barrier 

C1 Column vector of barrier 

PT Position on screen of barrier 

ae Random flag to place barrier on screen 
108 


Scan Keyboard, Move the Car 


REI CRASH BARRIER 
DZS="J ""SFOR I=1 TO 122¢0Z28=DZS+4'"B] "S NEXT 

FOR I=41 TO 192DZ$=DZS+4"B] "SNEXT 
COLOR4,7,64COLOR@,2,64COLORI,6,2*GOSUB T40SV0OL 8 
DIfll C1¢€25),D1¢25),R1C25) 

FOR I=4 TO AS*READCICID,RACID, DACIISNEXT 
QA=O4PRINT "i ";,2GOSUB 430 

COLORS, 7,52COLORO,2, TZ COLORI, 6, 22SC=30722CO=20484C 
=24*R=24D=22E=04GO0SUB 379 

PRINT "3 "SPOKE PO, 8412POKE CC,6 

A=PEEKCI92)>2I1F A=64THEN GOSUB 380 

IF A=62THEN GOSUB 1804D=4 

IF A=12THEN GOSUB 20a2D=2 

IF A=33THEN GOSUB 2202D=4 

IF A=41THEN GOSUB 2404D=8 

FL=INTCRNDC12#3 SIF FL=1THEN GOSUB 2602IF E=4 
THEN GOSUB 3502GOTO 790 

IF E=1THEN GOSUB 3504GOTO 70 

SL=SLt#.254PRINT OZ$;"I9 @ “;INTCSLO;"™ ";3GOTO 100 
POKE PO,322POKE CC,22R=R-12GOSUB 3702IF PEEKCPO)> 
=12S8THEN E=12RETURN 

POKE CC,6*POKE PO,812RETURN 

POKE PO,3222POKE CC,22R=Rt+1i2GOSUB 37TOSIF PEEKCPOD> 
=42STHEN E=12 RETURN 

POKE CC,62POKE PO,812RETURN 

POKE PO,324POKE CC,22C=C-12GOSUB 3704IF PEEKCPO)> 
=128THEN E=12RETURN 

POKE CC,64POKE PO, 812RETURN 

POKE PQ,324POKE CC,22C=CtitGOSUB 3702IF PEEKCPO)> 
=142STHEN E=12RETURN 

POKE CC,64POKE PO, 8412RETURN 


Frect a Barrier Between Two Walls; Check for Collision 


IF OA=1GOTQ 320 

QL=INTCRNDC 19219 

RI=RACQLISCL=CACQLIFDA=D1ICQL)D 

QN D1IGQTO 3200, 310 7RETURN 
RA=RAt*iISPT=3072+CR1I*4IOI*CISFOR J=PT TO PT+#+8O0 

STEP 403PQKE J,1602NERTSOA=1FS RETURN 
CA=CAF1ASPT=307T24+CR1IN4O*+CISFOR J=PT TO PT#2-POKE J, 
LE6OSNEXTSOA=1>5RETURN 
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sea a] 4) 
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ON DIGOTO 330, 340 RETURN 

FOR J=PT TQ PT#+8Q STEP AOSPOKE J, 32SNEXT SOAR=02 
RETURN 

FOR J=PT TQ PT#23POKE J, 323NEXT FS OA=OF RETURN 
FOR I=41 TO 163FOQR J=i1 TO S9OSNEXTSCOLORG,1I,5¢ 
SOUND 41,17,83SOUND 2,8, 4¢NEXT 

RETURN 
PO=307T2+CR¥40)4C3CC=204984+CR*¥4094+C2RETURN 

IF D=1THEN A=624RETURN 

IF D=2THEN A=123RETURN 

IF D=4THEN A=33SRETURN 

IF D=8THEN A=412RETURN 

RETURN 

REF 


Draw the Race Track and Instructions For Game; Data for 


Barriers 


PRINT "ke m "5 


PRINT "Lg » a a a» a a a a a a a& » a a a a a a az a » 
a a a» a a a a a a & a a a aA a a a a G a = "5 

~ a» a» a az az» a » » a a a a& a a a. a a a Lia a G a ss oe 
ae-< e- e-a mo oa me eee eoeeeeeaaoeaie wha” 
, 


i ae, a aR a Ok, a a a ns ee Se ee ee a Oe 
PRINT "lm 2.4 @™@...a.l68Wem.,.iHti qIGHtHte,z SPEED & a. 
emo «ga™@®,aoaowaeWweooeeoodow,zA SP EEDS.fB..a® 
~aoaolge p. Go"; 

PRINT "lia . @ 


s ry 
ee. 
a 


e 


a 


PORT oe ge ae te ae TE kn a ee te ES ES A 
a 


| a 44 a» = er 
PRINT “hae 2 Mean enallnwz Bannan naenewnnaana 


PRINT "We ow @.hmwoldie i. @. fh. ow Wm a XK 

SOR 8 fw BM ea aw ew Bed ew ew ew ese et ew Bw Ew 

Wee. hwo lie iow"; 

PRINT "Gm «24@.aool8.wz@Beon nie Bea Maonwnnanan 
| ) 


~ Lid a G «a a 5 
= 


~asocalie ~.iZm®.Pe.owoseWweai.i Gh.aS"; 


600 


610 


620 


PRINT "ld m@ a 


Oa: ks. a das as a as ee lc a, a aS Se ls ew oe 


s 
» » a» a » a a a aA » a a» ra a a a a a a | a CG xy — a 


aC .8"; 


® 
ao lf a a a a a a »~ a a» id a 


PRINT "lig «2 @ 2a oa oa da KR HR HO RHR KR HR KR HK KBE 
de a GR ay ae as a me a as “ee a Se A ee as a eS cs 
PRINT "Wm .@.howoaliea.a®.ihoawaWwiewtg @. F. 
es. “la fs cia ee a a a ee as a a ee a =. F. 


ow. SE eo SM @ haa ew aw Caw 
PRINT "ld g = ,~,noanld «72 ®@ 


e 
a ~ a zz a a a a a a aA a» a a a Lid 


a2WaGaes"; 


ap. 


la 
ay a & a —_- A&A A A A $j» & 


PRINT "Se 2@ 2h. wo lm ow 


aaaoild «0 @ aw a 


~af.aao i=ili @ a «£4 « 


® 


iioenw @,. Ee. «We ow Go 
PRINT "Id gw «2 ™@ .aoo ld a @ 


a ee A Lai ae fell elle Cl 


ae. 
a ; 


ay — 


PRINT "Ide .2@.,.hoaaoaWwe.a® 


a F 


Ye ee 


aia SS ew Coa SO; 
PRINT “ld gw «2 @ «<2 a2 a Wa 


a 42 A A A #& LL a A A & & 


an. 
a ; 


~~ — 


PRINT "Idea .«.2§@.,.ha.aeali@ aan nononeeoeaenaaa 


s 
» a _ ra a a Lig a aA a a a a» a A a a a a s a 


Gan GC a @-”, 


mw. ow 


YY 
a a a A ~ a» a » a a a a az» & a a & a 4 Lg rd ng > — 2? 


e 


ve. 
td 


° 
»a » s a a a a » az a a » re a za a, a «a rd lid a Cc a — ed 


OUS.AZHIGHa 


PRIN: "i @ c: aoe. a aoa POR EM 1 


PRINT “Ro 

C=AR=2 

GETASSIF AS=""THEN 728 
RETURN 


PRINT “RW WWMM oeeoeoeoo 
YOu WANT, !I 


PRINT "D QO 4 
NS .¢C W FN DO gs wa "GS 
GETASSIF AS="""THEN 760 
IF AS="N "THEN RETURN 
IF ASCO'Y "THEN GOTO 760 


N 


S$ TRUCTI O 


PRINT “Ky “SPRINT "2. «2 2 ma oa oa mmo mo wo wo eo WW CRASS 


H.a BARRIERS" 
PRINT SPRINT SPRINT 
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R10 PRINT ", 2 a a maoeoao STEER,ZA THE, CAR, 
ROUND,ATHE,ANAZE" 
£20 PRINT ", «2 wa a ao wow ao PF OR,AZAAS,AZL_ONGL,LZAS 
a POSS IBLE, US ITN G™ 
&30 PR ass. tas Sa am, as as a ea OR Eg oe 
840 PRUDNAS oP NT: See a a a Ges Be Saco dar Ja es a A Se as as Se 
el ge ER RS CR Beg 


R50 PR, ee ae a ae a a gl Yi. Be a ke we ee ae 
RIGHT" 

R68 FST: ee las ak a * a a wk ee kes OSS a: es ke a a, ee OE a ke 
UP’ 

STO Se. me tae aS age ee as, tae oa) a cakes as ee Ga ae a es a a ge Oe cy 
DOWN" 


SEO PRINT SPRINT SPRINT ", «2 aw mao oo oa Po RESS,QA 
NWYaoKEWn, TO, START "; 

89M GETASSIF AS=""THEN 890 

900 RETURN 

9104 DATAI6E,@,1,21,0,1,0,16,2,0,19,2,34,14,2,34,10,2,A7, 
20,1,21,20,1 

9208 DATAS, 16,2,4,14,2,17,16,1,21,16,1,30,14,2,30,10,2,41 
,4,1,21,4,1,17,8,1 

929 DATAZ1, &,41,17,13,1,21,13,4 
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ChexSum Tables 


41a = “A 3208 = 1236 630 = 4269 
2A 2554 320 = 278 640 = 3221 
20 = 1931 3248 = 24979 658 = 
4A = 2327a 35a = BRA2 668 = 27Ti 
sa = 1248 360 = 143 67a = 31314 
6a = 22323 37a = R229 BRa = 204 
7a = 1282 320 = 1184 690 = 32037 
2a = 5441 39a = 1120 7aa = 244 
aa = 1220 4Aa = 1120 71a = 682 
1Aaa ATR 41@ = A187 72a = 1216 
11@ = A365 42a 493 73a ad 143 
1412@ = 1364 430 = Sa) 74a = 755 
13a = 1368 4450 = 584 75a = 2766 
44a = 4365 450 = 2406 76a = 12416 
45a = 3316 46a = 2771 77a = a@4 
16a = 1483 47a = 2962 Tea = 14525 
ATA = 23164 48a = 27714 7290 = 2596 
12a = 4ao0e 49a = 5AaR3 RaQ = %Sas 
13a = 1135 50a = 3221 210 = 23953 
Z2aAa = 4n0a 51a = 3285 Rea = 2074 
21 = 41135 52a = 3221 R3Aa = 836 
220 = 3986 S320 = 5437 «840 = 1967 
230 = 4125 542 = 2647 358 = 1752 
24a = 2986 55a = S727 £68 = 1478 
25a = 4135 560 = P7714 R78 = A678 
260 = 1070 57a = R2R3BR RSQ = 32A25 
27a = 1239 SRA = 2774 RIA = 142414 
280 = 2355 53a = 5727 aan = 443 
29a = 1232 60a = 29a2 a1@ = 3382 
32aa = S724 610 = 52923 920 = 4024 
31909 = 3337 520 = 2??Pi 338 = 1332 
TQTAL = 221692 
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Hangman 


CLASSIFICATION: Educational 
The classic word-guessing game in brilliant colour. Guess the 
word before the computer hangs you. 

The computer will print out a line of dashes, each dash repre- 
senting a letter of the unknown word. Guess a letter by pressing a 
key. If you guessed correctly, the computer will replace a dash or 
dashes with the letter. If you were wrong, the computer will begin to 
build the scaffold and start the execution. Hint: the most common 
letters in English are E and T. 


PROGRAMMING SUGGESTIONS 


Add more words to the word bank. Design an edit mode which 
allows you to change, add or delete words quickly without writing 
DATA statements. Kids can use this editor to test their parents on 
their most commonly misspelt words. 
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Program 


Variables 
W Pointer to randcm word 
RR$ Move cursor down rows 
LE Length of word 
ee Letter count 
CC$ Move cursor across columns 
N Number of words in word bank 
W$ ( ) Array for word bank 


WS$ Word 
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Listing 


10 COLOR®, 3,327 COLORG, 7,4 ¢VOL SSPRINT "HH "5 

20 FOR I=1 TO 4Q2CCS=CCSt''B] "SNEXTSFOR I1=1 TO 253RRS 
=RRS#t") "SNEXTIN=T33GOSUB 340 

BA DITIWSCNOSFOR I1=8 TO NF READWSCIDSNEXT 

40 SCNCLRIIMIS="l HAN G,A MAN @ “SPRINT TABCC40- 
LENCIIS 39,29; MNSSLC=8 

val PRINT LEFTSCRRS,239;SPCC17I5"l SCORE w.z4™ ";SC; 

68 W=INT CRNDC 1 53€N) SWS =WS CWO PS LE=LENCWS OS PE=C40-LE)D “2eLvV 
=10 

7a PRINT "BY "";LEFTSCRRS,20),; 

RO PRINT SPCCPE);,;SFOR IT=4 TO LESPRINT "- "|; SNEXTSCN=03 


PTS="98 09@Q@2@OdO8 020000 0000080009090 0 86 890 


Enter the Letters of the Word One by One 


aa F=QSGETKEWAS 

106 IF ASC™A "“ORASS"Z “THEN GOTO 936 

110 PRINT "J "“;LEFTSCRRS$,199,>5F=0 

12@ FOR I=1 TO LESLS=MIDSCWS,1,1991F LS=ASTHEN IF 
MIDSCPT$,1,1)9¢>"4 “THEN GOSUB 300 

136 NET 

140 IF CN=LE THEN GOSUB 290-GOTO 402 

15a IF F=OTHEN GOSUB 170 

166 GOTQ 3a 

i7va IF LC=10THEN GOSUB 3103GOTO 40 

1&0 LCO=LCOF+ASLV=HLV-1 


Print One More Section of the Hangman: Decrement Score 


139A IF LC=4THEN PRINT “"SY "'Z;LEFTSCRRS,169;SPCC199,7SC1)9; 
7SQUND 2,7, TSRETURN 

2a IF LC=2THEN PRINT "RY "Z;LEFTSCRRS,15);SPCC199;,YSC2),; 
7 SOUND 2,9,83RETURN 

21 IF LC=3THEN PRINT “SY "";LEFTSCRRS,39,SPCCAII,YSC3I;,9 
SQUND 1,5,S5 3 RETURN 

220 IF LC=4THEN PRINT “SY ""; LEFTSCRRS,3);SPCC269;,7SC499;53 
SQUND 2,6,53;RETURN 

2320 IF LC=STHEN PRINT "BY "ZLEFTSCRRS,69;,SPCC259;,VS$C5),3 
SOUND 2,5,63RETURN 

2408 IF LC=6THEN PRINT "BY ";LEFTSCRRS,89;SPCC26)9,7S$C6),% 
SOUND 1,8, 827RETURN 

25a IF LC=TTHEN PRINT “BY "";LEFTSCRRS,9)9;,SPCC29,YSCII,S 
SOUND 1,6, 393RETURN 


mes 
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IF LC=8THEN PRINT "RY "";LEFTSCRRS.99;SPCC27T);,vS$C89;5% 
SOUND 1,6,63RETURN 

IF LC=S9THEN PRINT "3 "Z;LEFTSCRRS,129;,;SPCC26.9,Y7$C9); 
7SOUND 1,6,63RETURN 

IF LC=A1QTHEN PRINT “RY ";LEFTSCRRS,12)9;SPCC26);7SC10 
2;3S0UND 2,7,6 RETURN 
PRINT "SH ";"HEG OQD,GUES S @ ";SFOR I=1 

TQ AOOSGETASINERTSSC=SC#+LVSRETURN 
POKE 202,02PRINT SPCCPEtI-19;L9;5F=19CN=CN#t12MNIDSCP 
T$,1,19="1 "SRETURN 

PRINT "E] "|;LEFTSCRRS,18),; 

KS="§9 19 THE ~zj§WNORDA WAS . "“tWSt'e @ "SKE= 
LENCKSISTA=C4Q-KE2SPRINT SPCCTAI;ZKS; 

FOR I=1 TO S@*GETASSSOUND 1,5,63SOUND 2,9,23NEXTS 
RETURN 


Build the Scaffolding, the Noose and the Hangman 


ime 
OW 


¥YSC2I=""R O RFOHMRONROWROUR 
OWRONROMRONSNHORHOR ” 


& 
O & 


Y¥SC3ZI=A"R RRRRRR " 

YSCSUIN"S WHRUH RR" 

YWSCS0="F 7 TUHUHL 2 oo" 
YSC60="8. WN. WH. Ob. ee” 
YSC7TO="9 4.4.8" 

YSCZ0="I0. . 2" 

YSCSD0="Q2 2. HHWLHHOLHnee 


WSCIMI=""9B WM...” 

RETURN 

DATA DOQR,HOUSE,WALL,BRICK,RETURN,COMPUTER 

DATA TABLE, KEW,CHAIR, POWER,CURTAIN, CASSETTE, TAPE,CO 
LOR,DATA, STABLE, RUN 

DATA RECORD, SUPPLY, DEMAND, TREASURE, TITANIC, NELBOURN 
E,PERTH, ECONOMIC 

DATA CALCULATOR, HELP, HEAD, HIGH, BATTLE,BEEF,BECAUSE, 
EAT,EEL,ETCH, GOLD 

DATA GATE,GET, JUIP, JUSTICE, JAIL, KILL,KEEPER,_LOOK,LE 
ACH, KENNEDY, MORRISON 

DATA ZEBRA, TEETH, UNIVERSITY, 200, CUPBOARD, PERCEPTION 
»CLARITY,FENCE, VENTILATOR 

DATA SWITCH,LIGHT,PAPER, PLATE, BRACKET, BUTTON, MACHIN 
E,CURSOR, PLUG 

DATA CARPET,BAG,RING,LORD,STAR,STATISTICS,CHIP,INTE 
RGRATE, BOTTLE 


ChexSum Tables 


10 = 1942 AR 
20 = 4935 498 
20 = 1962 208 
4a = a744 218 
at) = 2267 228 
6a = 4622 220 
7a = 1067 24a 
BA = 4419 258 
3a = RAT 26a 
AAA = 41939 27a 
410 = 41449 2ae 
4120 = 4786 2308 
420 = 434 208 
440 = 1654 310 
450 = 925 320 
160 = 42a 320 
17a = 1612 ano 


-] 
tad 
1D 


t 
3 
428 
2240 
1447 
2A4 
RAB 
18384 
av?! 
143 
aa te 
BAG!) 
6167 
33934 
6246 
62aa 
“668 
7699 
1602450 


be be 
Ww 
-] 
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Looney Landa 


CLASSIFICATION: Simulation 
You have a high-technology exploratory spacecraft at your 
disposal. Your mission ts to land the craft softly onthe blue landing 
pads on the moon. Thrust can be varied up to five without 
exceeding the safety limits and, in emergencies, you can retro up 
to nine, risking engine burn-out. Lateral control is achieved by 
rolling the craft either left or right and thrusting. If you Succeed in 
your mission, you will be given a more difficult task. 

The controls are: increase thrust with Z, reduce it with Q, roll left 
or right with | or P. 


PROGRAMMING SUGGESTIONS 


Design new environments: create orbiting junk to avoid, different 
planets with higher gravity and different planetary surfaces. 
Increase fuel and mass of craft to make manoeuvres more difficult. 
Invent anew mission — take-off and dock with the mother ship, or 
land on an asteroid. 
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PROGRAM 


Variables 
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TL 
TH 
FU 
M 

LV 
G 

TM 


Toll value 
Thrust 

Fuel level 
Mass value 
Level 

Gravity 
Timer interval 


10a 
119 
120 
130 
140 
415@ 
160 
170 
1&0 
1939 


Select Graphics Mode and Initialise Game 


COLORO, 1>COLOR4G, 1-COLOR2, 73 COLOR3,10,2+COLOR1I,6,5% 
GRAPHIC3,1>VOL 8 

GOSUB 320 3B=1-7TL=167GOSUB 410 

TH=O5FUX=10002M=10009 VX=03 VVY=03 SX=96002 SY=1080>G=10 
7 TM=.13B0=0 

CHAR1,34,0,"R OL L "“SCHAR1,34,6,"F UE L "SCHARI,3 
4,10,°V E RT "SCHAR1,39,15,"H O R Z "SCOLORI,4,5 


Get Player's input, Update Screen 


GETASS CHARI, 34,%,STRSCFUZXIF", 

CHARI, 34,13,STRSCINTCVWIOe", 

CHARI, 395,19,STRSCINTCVHRDDe", 

IF SK>OL2EOANDSXCLIOSEQANDSYDA6200THEN 450 
BOX@, INT CSX 7120), INT CSY71209-5, INT CSK 120944, INTCSY 
4120), INTCTL¥360/325 

IF ASCD"P "THEN 130 

GOSUB SQOSTL=ATLF+131IF TLOSITHEN TL=0 

R=1>GOSUB 419 

IF ASCOT "THEN 160 

GOSUB 4OOSTL=TL-ASIF TLCOTHEN TL=31 

B=13GQOSUB 410 

IF FUX=QTHEN GOSUB 2003;GOTO 58 

IF AS="Q ""THEN TH=TH-1ASIF THCOTHEN TH=0 

IF AS="Z "THEN TH=THt1?1F THS9-BOTHEN TH=93-B0 
IF THOFUXTHEN TH=FU% 


Calculate New Position and Velocities 


Did Space Craft Crash? 


QV=C CTHSIOAD) ~CHIFFUX) DMCOSCC CTL ~16 8a) (32) 
R=CCTHESIQOOD) (CHIAFFUZIINSING CCTL—-16 039) (32) 

SH=SHKEVKRF . OOSHANS SV=SV*VV +. COSMAS VY=VV4tG-QYVSVK=VK 

tQeOFUXK=FUX-TH 

IF CPEEKC81924+INTCSY (“S6058#3204INTCSX/96008164CC 

INT CS¥ 120) ANDTOAND3SO I SOTHEN 460 

IF CPEEKC8S1i96¢4INTCSY,/S60383204+INTCSK S60 7#164CC 

INT CSW +128) .ANDT) DAND3QO2 >0THEN 460 

BOXA,INTCSK1209, INT CS¥/71209-5, INTCSX 71209449, INTCSY 

“L209, INTC TL¥®360/32) 

IF TH=OTHEN SO 
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SOUND 3,500+308TH, 803I1F THDS-BOTHEN SOUND 1,990,10 
IF THtBO-SC=@ORRNDCOI>DCTH+BO-S5) /30THEN 5O 
BO=BOt1SSOUND 3,1020,20¢3IF TH>S-BOTHEN TH=TH-1 

IF BO=9THEN CHAR1,@,22,°"°R ETRO,AFATI LURE !? 


GOTO 5a 


Scenery Information 


DRAW3,0,0 TO 0,159 TO 131,159 TO 131,90 
DRAW3S,60,0 TO 4,8 TO 6,16 TO T,24 TO 8,32 TO 9,49 
TO 10,48 TO 12,56 TO 7,64 TO 13,72 TO 14,80 
DRAWS TO 16,88 TO 14,96 TO 10,104 TO 6,ii2 TO &,120 
TO 8,128 TO 10,136 TO 12,144 TO 14,152 TO 18,157 
DRAW3, 37,157 TO 47,152 TO 50,144 TO 52,136 TO 56,12 
8 TO 64,120 TO 72,128 TO 76,136 TO 80,136 
DRAW3 TO 78,136 TO 930,136 TO 34,130 TO 34,126 TO 30a 
2,i26 TO 86,115 TO 85,1908 TO 930,104 TO 936,95 
DRAWS TQ 105,90 TO 112,95 TO 116,88 TO 124,80 TO 12 
9,66 TO 118,60 TO 115,48 TO 126,22 TO 128,7 TO 13141, 
a 
DRAW3,18,157 TO 27,130 TO 37,157TSDRAW2Z, 78,135 TO 30 
~135SPAINT3,1,9 
RETURN 
B=0 
DRALWB, 1974+9%COSCCCTL-16 78a) (169, 264+188SINCCCTL-16) 
n> 16) 
DRAWB TQ 147-S3"COSCCCTL-16 9%) (16), 26-A8*NSINCCCTL 
—-16)%a) +16) 
DRALJIB, 147,26 TO A474+9HSINCCCTL-16)8e0) /16),26-135% 
COSC CCTL-16)%a) /16) 
RETURN 
IF TL=16ANDABSCVK)C=1BOANDVYC=10THEN END 
SOUND 3,900,3003FOR I=1 TO A6¢COLOR3,1,4¢FOR J=1 
TO 200SNEXKTJ,1 


ChexSum Tables 


1@ = 3367 A7a = 2757 22a = Q7ana 
20 = A588 ARA = 235623 34a = S52R6 
2A = 5652 128 = 1425 25a = S981 
4n = S72a 2aa = 23795 36a = Seas 
5a = 12804 218 = 32795 37a = S772 
6a = 1766 220 = 7314 2ka = 23556 
7a 1764 23a = S64 29a = 1423 
bs = 2763 24a = S865 4aan = 2396 
30 = ‘S529 25a = 552a 41a = 4995 
12a 4129 ~6a = 213 420 = 5116 
41@ = 23RR 27 = B138 43M = I6Q6 
12@ 664 PRA = 2547 440 = 143 
430 4125 22a = 25415 4507 = 29a”gr 
14a = 2391 2ae@ = 2655 460 = 3952 
15@ = 664 210 = 476 TOTAL = 148108 
16a = 1608 320 = 1972 
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2D Maze 


CLASSIFICATION: Evasion 
You are placed randomly within a maze and must work your way 
through to the end. 

You can turn left or right with the | and P keys, or move forward to 
the next junction by hitting the SPACE bar. The end ofthe mazeisa 
flashing wall of colour. 


PROGRAMMING SUGGESTIONS 


Put a time limit on solving the maze. Introduce random teleporters 
which change your position and orientation; once triggered, they 
disappear. Increase the size of the maze. Have nasty things chase 
you! Add secret, invisible passageways that change your position 
but can only be found accidentally. 
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PROGRAM 


Variables 
MZ Maze array 
J% Current junction 
D% Actual orientation 
N% Next junction 
M Number of moves 
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Listing 


1260 
128 
140 
150 
1690 
17T@ 
130 
1990 
20 


Initialise Game and Define Maze 


PRINT "a WA I T “SCOLOR1,1$DK=9¢DV=94XF=54¥F=9 
DIMMzZ¢DX, DY) 

RESTORE 

FOR 1=8 TO DYSFOR J=@ TO DXSREADMNZ%CJ,12SNEXTJ,1 
DATALS,3,4,7,5,7,5,5,15,5,11,14,5,13,5,13,5,3,10,6, 
14,11,6,5,5,5,7,11,8,10 
DATA1O,%,10,6,3,6,11,12,7,9,12,5,9,8,6,12,15,5,13,3 
25,59,3,6,15,3,19,2,6,13 
DATAT,5,9,19,10,12,9,190,12,5,149,7,5,9,12,5,5,15,5,4 
74149 24,5, ets 54 310;4,5 

DATA11,8,4,9,8,49,9,12,7,5 

DEF FNL CX) =C CX#2AND1I52+INTCCXANDS) /8) 
DEFFNRCXI=INT CX 7/294 CXANDA 8 

X=INT CRNDCQ)*64292Y=INT CRNDCO2*5)4D%=2PI NT CRNDCOD 
%#4)3GRAPHIC2,0$GQSUB 210 


Get Player's Input; Move Player, Rotate Left or Rotate Right 


GETASSIF ASCOT “ANDASTD"P "“ANDASCD", "THEN 120 
IF AS="I "THEN DZ%=FNRCDZ%ISGOSUB 210¢GOTO 120 

IF AS="P "THEN DX%=FNLCD%ISGOSUB 2103GOTO 120 

IF CDXANDINIZ2 CK, WID=ATHEN X=K-ASIF KCOTHEN K=DX 

IF CDXANDIIZ4 CR, VWID=2THEN W="¥t1itIF YODYTHEN Y=9 

IF CDZANDIIZ£4 CX, WII=4THEN X=K41491F XKDDXTHEN X=9 

IF CDXANDINZ4 CX, VID=STHEN W=W-ASIF YCOTHEN W=DY 

GOSUB 2103IF X=KFANDY=YFTHEN GRAPHICOSEND 

GOTO i2@ 


Draw Player's View; End Game 


SCNCLROXN=ERSYN=EVSIF COXZANDIIZZ£CK,YII=OTHEN RETURN 
IF CDXANDIIZ£. 0%, YID=ATHEN XN=HX-1AST1F KNCOTHEN XN=DX 
IF CDKANDIIZ%4. 0%, YI D=2THEN WN=WtisIF YNDDYWYTHEN YWN=0 
IF CDXANDIIZ4CK,WID=SATHEN KXN=XtiAS TF XNODXTHEN KN=0 
IF CDXANDIIZ% 0%, YI D=8THEN YWN=W-ASIF WNCOTHEN WN=DY 
DRAW1,9,0 TO &7,579DRAW1,98,159 TO &7,130SDRAWI, 319, 
Q TO 232,57SDRAWI, 319,159 TO 232,130 

IF ChMZNCKN, YNOIANDDXD=OTHEN 300 
ROX1,157,103,162,107¢DRAW1,157,103 TO 130, 85>DRAWI, 
162,103 TO 189,85 


12g 


10a 
11@ 
120 
4138 
14a 
A5@ 


130 


DRAW1, 157,107 
GOTO 319 


TO 130,116¢DRAW1,162,107 TO 189,116¢ 


DRAWI,13@0,&85 TO 189, 85SDRAW1,130,116 TO 189,116 


IF CMZ% CAN, YNIANDFNRCDZII=QTHEN 340 


DRAWL, 87,57 TO 87T,1303DRAWI,130,85 TO 87, 853DRAWI,1 
36,116 TO 87,116 


IF ChMZ4nCKN, YNOANDDXIOOTHEN DRAWL, 130,85 
IF ChMZ2C8N, YNIANDFNLCDZII=OTHEN 37908 
DRAWI, 232,57 TO 232,1303DRAWI,1389,85 TO 
DRAWL,139,116 TO 232,116 

IF ChiZ2CXN, VWNIANDD“%ISOATHEN DRAW1, 189,85 
IF ChMZkCXN, YNOANDFNLCD%IIDOTHEN 400 
DRAWL,232,57 TO 189, 853DRAW1,232,130 TO 
IF ChZ“nCKN, WNIANDDZI=OTHEN DRAW1,189,85 
IF ChZA2CKN, YNIANDFNRCDZDIDOTHEN 430 


DRALJL, 87,57 TO 130, 853DRAW1, 87,1390 TO 130,116 


TO 130,116 


232,853 


TO 189,116 


189,116 
TO 189,116 


IF ChMZ“cXN, YNOANDD%D=OTHEN DRAW1I,130,85 TO 130,116 


IF 


RETURN 


ChexSum Tables 


it 


B3a85 
RO7 
14141 

2902 

49511 

4500 

4520 

1252 

2764 

2229 

A926 

R219 

26aQ 

2589 

231% 


16@ 


3286 
2284 
33228 
2244 

ser 
Ba7T 
3625 
2604 
3E02 
32634 
4ARAT 
41201 
3813 
Soae 
2561 


SN=SXFANDYN=WFTHEN CHARI,18,11,"H O ME 


tf 


2229 
3669 
2914 
2215 
3&2 
2928 
2208 
2567 
2922 
2226 
2434 
2916 
2715 
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125399 


Blackjack 


RE KROK IROE 


RTPER O88 THIST 


CLASSIFICATION: Gambling 
Play Blackjack, the player versus the computer. You start with $50 
and can bet up to your credit on one hand. 

Enter your bet and hit return, then wait for the computer to deal 
your card (face down). Use key S to stick, if you think your hand is 
good enough, or T to twist a new card over. You bust if the total 
exceeds 21. Try D to double your stake if you feel lucky. 


TSH] 


PROGRAM 


Variables 
CD$ Array of names of cards (A, 2, 3, J, Q, K) 
SS$ Suits of deck 
CR Money 
CV Computer's total card value 
PV Player's total card value 
NC Number of cards computer has 
NP Number of cards player has 
B Amount of bet 
DT$ Next card 
SQ Stake 
DB Flag of doubling stake 
CO% Computer's card 
P% Player's card 
CN% Array which indicates which cards dealt 


C1$, C2$ Computer's first and second cards 
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Listing 


16 


20 


190 
110 


120 
134 


Initialise Game Variables 


Draw Screen; Deal First Cards Face Down 


BLS="% % SS % SO UEP OD GR Ob bb ’SCLS=". 2. kw 
Het YS CNS=" UO NNN Ueeeeeeee 
CAS="Bi BI Bi Bi Bl Bl BE Bl BS BS Bl Bi Bi Bl Bl Bl BE °'S 


ee 
A a a » a az az aA a & a a a» ry a a a a & 


C$="SB Se S22 "70S" OH OH OM OMe 
EW Wk “3s CR=500¢DCS="q Ww 

VOL SS SDIMSSSC3SDIMPCCSIDSDIMCCCS> 
DIMICDSCLI2,2DINCNZ%CL2>9°¢FOR I1=0 TO 12¢READCDSCIDSCDSC 
TD=CDSCI Ot", “SCNXCID=RHASSNEXTI 
DATAA,2,3,4,5,6,7,8,9,10,5,Q,K 

CDSC92="1 O "SSSSCODI="F¥ O "SSSSCLII="§ @ “SSSSC2I=""_ 
2 "SSSS$C32)="s @" 

PRR, gS as as a a ls Se a a a a ce ae ee a OBOE AE K 
JA CK: 

PRINT “S OM HP CUHOUHNUMHPOHUMHTONM 
EFWUHRU UUM MUMMNoOv we nmti. MnO mM Mm. wn 
L=O2CXS="BI HW BB °° SSQ=02B=02CN=-13PN=—-13DB=02S=0 
CYS=CNS4#+DCS$SGOSUB 3203P1$=DT$¢PS=KtPN=O2PCCPND=¥% 
GOSURB 420 

CYS=DCS7GOSUB 3202C1iS=DT $¢CS1=KeCN=8eCCCCND=¥ 

GOSUB S60SCYS=CNSt#+DC$2DT $=P1$¢%X=PS$GOSUB 330$RCS=CX 
S$>RPS=CXS 


Flip Over Player's First Card and Enter Bet 
Deal Next Two Cards 


PRINT CNS;CAS;"I EN TER,.BET @ ",¢INPUT B 
PRINT CNS;CAS;NLS$ 

IF BCIORBOCRTHEN 140 

GOSUB 550 

CYS=CNS+#+DCS$2GOSUB 3203PN=PNF41i¢PCCPNI=VFPIS=DTSSPS 
=x 

CYS=DCSSCXS=RCSSGOSUB 3202C2S=DT $2CS2=Ke CN=CNF1SCCC 
CNO=¥Y 

CYS=CNS#4DCS$2CXS=RPSSDTS=P1ISSX=PS3GOSUB 3803GOSUB 42 
a 

IF PV=21THEN 2990 

PRINT CNS;CAS;°H STICK, OR, TWIST "; 
GETASSIF AS=""THEN 239 

IF ASCO"S “ANDASCO'T ""ANDASCO''D "“THEN PRINT CNS;CAS 
»NLSSSOUND 1,350,53GOTO 210 
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mal 4) IF AS="T “THEN GOSUB 3203PN=PNtisPCCPND=7>GOSUB 320 
7-GOSUB 4202GOSUBR 6HOHFGOTO 210 

260 IF ASCSO"D "“ORDBOBOORBOCRTHEN 230 

27a GOSUB SS@s;DB=12-GOTO 210 

250 IF ASCDS"S "“"ORPVCA2THEN 210 


Player Sticks, So Reveal Computer's Hand and Play 


290 S=1>GOSUR S7TOSGOSUB 4380 

3600 GOSUB 6900 

318 GOSUB 3202 CN=CN413CCCCNI=W>GQSUB 383A 3GOSUB 480¢ 
GOTO 300 

320 SOUND 3, 700,523 V=INTCRNDCOI#13991F CNXCYS=OTHEN 320 


Determine Next Card’s Value and Suit; Draw Face Down: 


Flip Card Over 


320 DTS=CDSC¥$X=INTCRNDCOQ%4) 

240 IF CCONZCYIANDC24X)2=8THEN 320 

350 CNxCYI=CNXCYI-24X 

260 PRINT "om "ZC¥YS;CX$;'" "ZCS;"S! WWE "Z0S;"8 "ZCVS5C 
KS; "FDS; WES "C858 "5 

370 PRINT "BH ";CVS;CX$;"9 BE"; BLS$;BL$;BL$;BL$;BL$;BL$;B 
L$;BL$;¢FOR I=41 TO 100NEXTSRETURN 

280 CCS=LEFTSCSS$CX>,12 

399 FOR I=1 TO S@QSNEXTEPRINT “EE "'ZCVYS;CX$5"l B57 CCS;D 
T3537. «2 2 2 WUT db US SSSCHKHOG. a2 kw ew oe 
| 

499 PRINT CLS$;CL$;CL$;CL$;CL$;CL$;4CXS=CXS¢"RI BBD” 

419 SOUND 1,1090,32FOR I=41 TO S@OSNEXTSRETURN 


Calculate Player's Hand; Calculate Computer's Hand 


422 PV=ASAC=QSFOR IT=0 TO PNEPV=PVtFPCCIO+121F PCCIO=0 
THEN PV=PV41 OS AC=ACH+A 

430 IF PCCIIS9STHEN PV=PV-PCCIO+F9 

440 NEXT 

450 IF PVOD21ANDACSOTHEN PV=PV-103AC=AC-1SGOTO 450 

460 IF PVO21THEN L=4 

470 RETURN 

4z=0 IF CNC@THEN RETURN 

499 CV=O@SAC=OTFOR F=0 TO CNSCV=CVECCCIO+i13S1F CCCII=0 
THEN CV=CV4t1@ZAC=AC4+1 

306 IF CECIOSSITHEN CV=CV-CCCIO+9 

310 NEXT 

32a IF CVD>21ANDACSATHEN CV=CV-103AC=AC-12GOTO 520 

33@ IF CVD21THEN L=-A1 

340 RETURN 


Draw Credit and Stake 


SQ=SQ4+BSPRINT CNS," Wu Ss T A K E a roe 3 ~a & & & & 

oo ao TEETH a a o'; SQ2CR=CR-B 

PRINT CNS;°"E; BEC RE DIT,zA£,...2.-..a.. wo ow UF fl 

11 tn Ge ak ai a OS CRIRETURN 

PRINT "EY G] © ©) BF BEB) BP BP 5 C1S5,°) EER "SZ SSSCCS195". 
MGM. 2. Oo. wn 2 fk an 

ORS | | ee eee 

SOUND 1,10800,3 

CWS=DCS$3CRS=RCSSDTS=C2SSXKX=CS1I1SGOSUB 3E03GOSUB 4803 

RETURN 


Determine Winner and Amount Won or Lost 


IF L=1THEN PRINT CNS;CAS;°§4 ,. . Y¥ OU, HBUSTE 
Df mt a «2 a © SOUND 1,800,10$SOUND 1,700,204 

GOTO TsO 

IF L<C>-ATHEN 640 

PRINT CNS;CAS;NLS;,CNS;CAS;"4 . «2 a2t!l.a.BUS TED 

"*CR=CRt2*SQ 

SOUND 1,800,103FOR I=1 TO SOSNEXTSSOUND 1,900,104 

GaoTa 7930 

IF CVC>21O0RCNCSOATHEN 679 

PRINT CNS;CAS;"ea HHI.4GoOoOg?tT,.BLACK IAC K ! 

w "+SOLIND 1,900,202 IF PV=21ANDPN=ATHEN CR=CR-3%SQ 

FOR I=1i TQ AOFSSOUND 1, 200t10%! ,1L9SNEXTSCR=CR-SQ> 

GOTO 79a 

IF S=Q@THEN RETURN 

IF PVC>PeAORPNCSATHEN 710 

PRINT CNS;CAS;"ea HRY OU,.A GOT, BLACK IJIAC 

K ! @ “SF CR=CR*EBS*SQ2GOSUB STO 

FOR I=1 TO 306¢SOUND 1, 3004108! ,102SOUND 2, 420t+10I, 

AQ@SeFOR J=1 TO SOSNEXTISNEXTISGOTO 790 

IF CVCATTHEN PRINT CNS;CAS;'"R 2 «2 a2 aoailatwWwWiIst 
M tee. ey Lge Ger es fe SS RE PURE 

IF CVCPVTHEN 740 

PRINT CNS;CAS;°R 2 -2oo VOU, tiase.. . ""s 

SOUND 1, 700,1@2FOR !=1 TO SOSNEXTSSOUND 1,600,253 

GOTQ 794 

PRINT CNS; CAS "Fl «4 « 2 «2 I a2 bt OS Es « «+ «a ez &@ 


ve 
ss 


FOR I=1 TO 1AO4SOUND 1,900+101,103FOR J=1 TO SO 
NEXTISSOUND 1,1000-10%1,102NEXT 

CR=CRt2*SD 

GOTQ 798 

GOSUR 576 


135 


730 GOSUB SEOSPRINT CNS$;"2) BF ’’SNLS;CNS;CAS;°H WY .2AN O 
THER,ASGAMNE, 7?" 

8Ha GETASSIF AS="""THEN 800 

81a IF AS=""N “THEN END 

$20 IF CROOTHEN 80 

R30 PRINT CNS;CAS,°D Hawa oa BANKRUPT FY oo "9 


END 

ChexSum Tables 

18 = 6108 290 = 1067 S7T@ = 5388 
29 = 2532 290 = 298 523Q@ = 6235 
29 = 6598 31Q@ = 3279 59a = 2495 
4a = 1924 320 = 31123 600 = 5046 
5a = 53245 330 = 1965 619 = 4155 
aa = 1682 349 = 1750 629 = 3982 
7a = 5225 ase = 1450 S30 = eee? 
20 = 1&97 260 = 4995 640 = 1882 
90 AO RE 378 = 5023 eve, = Base 
140 = 4092 3RA = 1162 66a = BRERA 
414@ = 4203 29an 80= 6949 678 = 762 
120 = 3533 199 = 29qgR 6&0 = 1905 
130 = 427 419 = 19240 690 = 4433 
aoe ee 420 = 6112 7a 8 8=6= 5669 
415@ = 844 ag. «eee 719 8 = 32046 
160 = 1392 449 = 434 TOA = 996 
Ree eee 450 = 3664 730 = 5235 
180 = 43493 460 = 10R8 740 = 1941 
190 = 4733 470 = 443 75a = 4720 
2aa = 236638 420 = 831 769 = 1069 
ee 490 = 6961 770 0 =) (538 
220 = 2128 Soe a Saas meg 3 sae 
eo S10 = 4134 799 «= 3470 
240 = 5092 B5af ke Sees 1 eae 
250 = 4542 Bea. ee Gas So et eae 
260 = 23414 eda “ai; gas a0 S09 
270 = i372 550 = 517 83a = 2370 
220 = 1784 S6A = 23683 TOTAL = 235915 
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Dungeon 


CLASSIFICATION: Adventure 
You have been placed in a chamber with a monster and have the 
following attributes: 


Fatigue 
Wounds 
Weight 


You are the red object — explore the rooms and battle the evil 
monsters. Your controls are R to turn your man right and L to turn 
your man left. The keys 1 to 9 move you forward the corresponding 
number of places. The T key thrusts the sword at the monster, but 
be careful, he fights back. Your wound tolerance must not reach 
zero or you will die. 


PROGRAMMING SUGGESTIONS 


Alter the game so if a player stays too long in one position a 
monster will come after him. Also give the player and the monster 
more than just the one weapon they currently have. Weapons like 
a spear or a mace would be useful tools to have. 


Loe 


_ 


Program 
Variables 
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SC 
RO 
FA 

1 
MX, MY 
D 
R$ 
WO 
TS 
WE 
V 

M 


screen start 

Room number 

Fatigue value 

Player's co-ordinates 
Monster's co-ordinates 
Direction 

Room 

Wounds value 

Total slain 

Weight value 

steps of movement forward 
Monster flag 


Listing 


41a REM DUNGEON 

2A DIMFPSsc4) 
Define Cursor Movement Variables; Set Colours, Data For 
Mazes 

aA YS "BU UM UHH wMeuwuuuuuuuwueuuuuue”" 


76S="E BE BP BD BD BE BY BE BD Bi OB) BY BD OB? BP BB BB BB 


4a COLOP4S,6,43COLORA, 7,S53PRINT CHRSC149499SC=3072 

Ba SRP=INTCRNDOC19411441@) 

TA DE=INTCRNDOCLAIM11 4100S WE=TStINT CRNDC19825) 

20 S=OFRO=OTFA=10O$ WO=1002D=19X%=39V=15 

aa FOR 1=@ TQ 4*READRSCIDSNEXT 

1aa DATANAAD7TLSEDSRANSADTL ADSL AWel GUAR ZSUSL 3U6 

118 DATADAORSE AQ 2D991LAUIDAL SUSE 406 

112A DATAQ3SDSRESULONSGR4ADTEFNI2LI3U994 

130 DATAQBDTUTREDSL2DSR2DEL GE 4O4UIAREDAUALBVIESOReAL2U6 

1409 DATAQS2D9SL APREDALADSLAESN3USIRI3 

15@ ON FOGATO 178,120,190, 20a 

160 IM=aAAShMV=33GQTO 21a 

17a PM=4s(Ww=32GOTOA 2184 

AFQ MM=alhW=182GOTQ 214 

19@ PM=AASW=183GOTQA 214 

2AA MXHesrw=122Go0TaQ 218 

218) M=QSTF PNDC41.>.5THEN MEINTCRNDC 19341 93MS=INTCRNDCA 
JHAMIES 

2e2n GOSUR AMBASV=HOSF=O2GQTO 26a 


Move Your Player Forward, Rotate Him Left or Right 


238 GETASSVEVALCASIZIF VSAQTHEN 4280 

zZ4e FA=FA-INT CCM “2AM CIBDA-WOI4+CY “2A MLE F.5D 

25a GOSUR ATASIF MN=AANDRNOCA9>.2THEN FHA 

eb SW=ASFOR JT=4 TO VEPRINT LEFTSCYS,VY#1>2;LEFTSCHKS, XO, 
~aWHM. 2. " 

270 BMAHK4+CD=39-CD=193V71=V¥4+CD=09-CD=2) 

210 IF PEEKCSC#Y1*%404+X19C>220RPEEKCSCH+VY1R4O4+K1419 C932 
THEN T=VSGOTO 414 

328 IF PEEK CSC 4'V1%404%14+40) C>320RPEEKCSC+Y1"#404+%14+41) 
CP SeTHEN T=VeGOTO 41a 

34a MEMASYW=VASTF MD OANDXCALANDYSDO@ANDYC2OTHEN 410 

358 RO=RO4CH=O09-CH=11940CV=209-CV=O) 2 

36@ IF ~=ATHEN “=1@ 

27a IF M=A414THEN X=4 

BRA IF W=ATHEN W=19 

Baa IF W=2ATHEN Y=1 
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4A0 GOoTaQ 15a 

419 PRINT LEFTSCYS,W#4i1>;LEFTSCX$,X)°%§ "; 

420 ON DtiGOTQ 420, 440, 450, 46a 

430 PRINT "Seo MMT & OW "5sGaTO 47a 

440 PRINT "Wd a @ 2 UW oe @ 2 E'S SGaTO 47a 


Print the Player and the Monster 


=a PRINT "WW & © 0b @ 2. 8) aba 5; 2GoTo 47a 
460 PRINT ". = FOS? af O UME; 
470 IF VO@THEN NEXTI 
420 IF ASCO™L “ANDASCO™R "THEN 540 
43a IF FACA@ATHEN FA=FA412GOQSUB 37a 
Saag SLIFASD=DECAS="L "D-CAS="R “"D4IF DCO@THEN D=3 
40 IF O>32THEN D=a 
S20 asa 
2a Y=a+GaTa 41a 
54a IF ASCI™T “THEN 628 
S508 SLI=S¢FA=FA-2 
=6a PRINT LEFTSCYS$,Y#1);LEFTSCX$,X4+412;°R “s2IF D=a 
THEN PRINT “EH: ""SGQTO 620 
570 IF D=ATHEN PRINT "B] = "4GQTA Baa 
Sza IF D=2THEN PRINT “Q) GF St ""*GOTO 6Aa 
52a PRINT "§p ro 
BAA BL=MSWAHVSKM1=41400CD=39-CD=19 024 Y1=9140CD=0)-CD=239) 
%D 
61a F=4 
20 IF SLID@THEM SLI=SLI-121F SW=@THEN GOSUB 939702AS=""""4 
GaTa 41a 
62a IF M=ATHEN 93a 
64a IF MS>=SRANDRNDC419>.7THEN FH4 
65a IF F=AQTHEN 77a 
BEA PRINT LEFTSCYS,Mvti>;LEFTSC4S,MX", 2. WUE w 2 "St 
IF SMDQ@ANDMXS=XTHEN PRINT "OQ OWWGN. " 
Baa SMHOlTDW=MP +t ChVSVI-CMYCYISIF PEEKCSC#DY*4Q4MX) CD32 
ORPEEKCSC#DY*"4A4IMK4190>32THEN 730 
TAD IF FEEK CSC 4D'VY#4Q4MX+4+40)9 CO 320RPEEKCSC+DY#404MK441> 
C>R2THEN 72a 
720 iw=DY 
7320 DVY=MXF CMD K#29-CMMOCX-L1921F ABSCDY—-X2C=4THEN DY=DY 
+O DY 4932 
74a IF PEEK CSC 4Mv¥*224+DY) C>B20RPEEKCSC+MY*224DY419C332 
THEN 770 
750 IF PEEKCSC #4IW#224DY4#22)  C>320RPEEKCSC4+MYe224DY4+23) 
C>B2THEN 778 
76a Y=D'P 
77a PRINT LEFTSCYS,MV¥4t1>;LEFTSCXS,MXO"S WW Be ws 
"SSIF SW=OTHEN 820 
TRA IF ABSCK41-M¥I>4 OR ABSCY41-MY¥I>4 THEN 820 


SLIH1¢S=SR/42S=S4+(SHDE) “1QOSMS=MS-INTCS#.5941F MSDO 
THEN 822 

PRINT LEFTSCY$S,M¥#41);LEFTSCXS,MX™", . UM * 
TS=TS#1sM=asGOTO 92a 

IF SMD@ORRND(19>.S5QRF=QTHEN 892 

M2=MNEYZ=IMY 

PRINT LEFTSC¥S,Mv#41);LEFTSCXS,MX);41F MXCXTHEN 

PRINT "“() BP OG mo"; 4V2="24414X2=X241SG0TO 880 

IF MN=@QTHEN 930 

IF PEEKCSC#HIiWs224+MX-412=168THEN 930 

PRINT "HE OG 22 ";¢X2=x2-4 

SM=4 

IF SM=QTHEN 92a 

SM=SM-4 

IF ABSCX2-X)>10RABSCY2-Y)>ATHEN 9330 

SW=12S=MS4S=S#¢ S21 1 00S WO=WO-INTCS+.5) 

IF WOD@ANDFAD@THEN 23@ 

FOR I=14 TO AMM@SNEXTSPRINT "WWMM tHauUAAR 
T "SPRINT ". «2 2 2 SLAIN “SM=O 

GOSUB Q7@SPRINT "O O ";$POKE 198,@¢END 

IF D4A=3THEN PRINT "SB "*; 

PRINT LEFTSCY$,2);LEFTS(X$,199"~S FATIGUERW 

Tt | i | ee | eee 

PRINT TABC14>"SD WOUND SWHHHHUMH HN & "WO" ~ 


ee 
»z 


PRINT TABCI149O "RE a WG TMH WEL BOS & ” 
PRINT TABC199 A TOTAL © OMSL AT NGO 
TL) | 

PRINT LEFTSCYS,A7)9;LEFTSCK$,149"98 (GP bb bb wil 
808 08 0k ee kk oC 


| eer 

PRINT "") 2. 2 2 «2 oa «2 2 FE 
ao o o ao bi OUP Pe wk 
PRINT "OMT MMMM MMS Ian nan OoOOoOoOoOnn 
| | 

IF M>Q@ THEN PRINT "WM ON ST E RQ) 88 88 08 08 0 
WnWiAPPEARS " 

RETURM 

PRINT "KG lg "",4D4=1% FOR I=4 TO LENCRSCRO)) 
SS=MIDSCRSCROD,1,139¢1F VALCSSISOTHEN FOR J=1 TO 
VAL CSS 2SGOQSUB A15Q3NEXT 

IF SS="Ul "THEN D1=@ 

IF SS$="L "THEN D1i=3 

IF SS$="D "THEN Di=2 

IF SS="R "THEN 01=1 

IF SS="E “THEN PRINT "S@ "; 

IF S$=""Q "THEN PRINT "ld “5 

NEXTSPRINT "RY ""SGOSUB STO@SRETURN 

PRINT "2 O8 °°; 
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41146@ IF DA=ATHEN PRINT °D) "; 
A17Q@ IF DA=ATHEN PRINT "RE 5 
4420 IF DA=2THEN FRINT “WY "5 
449@ IF DA=2THEN FRINT "Hi "5 
4200 RETUPN 

421@ IF S$="0 "THEN PRINT “ld "; 


ChexSum Tables 


1@ = A 44 = 2222 R50 = R29 
2n 4a 45a = 2322 260 24398 
3a = eee® 460 = 1667 RTA 4695 
4a = €3832 A7a RIG FRA 3423 
aaa, = Boe ARA = 494 Zan = £82 
TQ = 3210 432 = 1310 39a = 735 
ze) Sts23s SAG = 24923¢ 318 2570 
38 = AS67 518 = 9149 92a = 4a4qs 
AAD = 2802 527A = 359 92a = 1462 
118 = 2048 2A = 920A 340 = 2242 
120 = £-AI9 sda = 24 25> a5a = 1696 
4320 = 32664 SS0 = 1184 36a = 1423 
140 = 1248 SEA = 4n24 37a = 4198 
15@ = 450@ S70 4656 32a = pase 
168 = 1540 at = 42197 aaa = 2406 
4A7@a = 1502 590 = 5.49 1BAaGH = R6A5 
120 = 4AS54 BAe = 5274 1A10A ERER 
190 = 1594 B41A 2aa 1920 5552 
2Aa = A455a BEA 3TE7 1@2 = 4277 
240 = 42R22 B20 = 7908 1O4Q = 2385 
zea = AT25 BIA =- 2444 AAS = 142 
22m = 1285 Baa = TIR 14060 23254 
248 = 2704 660 = 5549 Aa7A 4207 
25a = 2A58 63a = 8162 A4QM@ZA = 1166 
26a = 3641 7aAa = 5495 14aaa 1160 
21a =, ES Tea = Sag 14108 4454 
340 = 36aa 730 = S637 11109 44166 
328 =o aes TIM = 4256 1120 226 
34a = 32454 T50 = S192 11430 = 1106 
250 = 2425 TEO = Sa7 11440 = 1034 
26a = 1@12 77a = 4129 A450 4R4 
278 = 1019 720 = 2722 1460 = 1417 
REA = 1020 7an = 524 14170 = 9493 
240 = AM24 ZAa = 2410 4420 = 994 
4AQ = S26 ZA 1732 1149@ = 1122 
419 = 1792 S20 = 2494 120@ = 1493 
420 = 1642 $20 = 1A6A 1210 = 41186 
420 = 21A6 RIO = Sae7 TOTAL = 2629214 
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Warlock 


BR BM FO CHEE, 

RE LG ferme ch. 3 
WEG Fe oR PRED ED 
ager geened ¢ dag. 


WG PeECaYRPr AE strength pot 


eft .2or abt ar Uofurkwar da? 


CLASSIFICATION: Adventure 

You have been cast into the world of the warlock, a time of 
dungeons and dragons. The objective of the game is to live as long 
as possible but at the same time gather as much treasure as you 
can. You will be confronted with monsters and creatures of all sorts 
and you will have one of three alternatives: attack, retreat or use a 
Spell. Beware, spells are not always effective against creatures of 
the night. 
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PROGRAM 


Variables 
5 Strength 
SP Spells 
TR Player's treasures 
M Monsters 
CO Colours of monsters 
HA Next event 
Z Up or down stairs 
D silently or noisily 
E Angry, friendly or dumb looking 
MH Advance or stop 
MT Coins taken by the monster 
SS Metal spikes 
TT Silver or gold 


T Monster's treasure 
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Listing 


A@ 


COLORS, 7, 35 COLOGRO, 2,53 S=1002SP=St INT CRNDC1¥#495TR 
=60 


PRINT CHRSC149" WH «2 20 aw aw wm wa woman = € Qo OD fw 
bo ee a ee 

PRINT SPRINT "2 «2 wo :k OU’ VE,A BEEN,ATRAN 
SPORT EOD,ATO,ZASONEWHERE "™ 

PRINT ", WITHIN, THE ,AZAOARLOCK ’ Sx 


CA VES) a 

PRINT $PRINT “a waa LI vVE.wzASAZLONGLAAS, 
POSSIBLE.,AGA NG" 

PRINT "4 TREASUR NDaKILLINGa, 
MONSTERS." 

PRINT $PRINT $PRINT @PRINT "2 wow TLE ASE APR 
ESSAZANY.AZKEY.ZTOLZSTART."™ 
GETASSIF AS=""THEN 80 

PRINT "ks " 


Ty = 
> 
> —~ 


Print Message; Press Any Key to Start 


S=S-INTCRNDCAI*MSIF191F SCATHEN 760 

PRINT SPRINT "2 2: REAS URE q. = "“TREPRINT "2 @ 
PELLSg,. aa f= “SPSPRINT ", O9TRENGTHa SG 
“Ss 

PRINT ". @C ORE wz .4 2 a + “TR¥HIOFSSPOKE 193,09 
M=INTCRNDC19813941 

T=INTCRNDC19®20)4+1 

CO=INTCRNDCAIMT7)D+1 

HA=INTCRNDC19#6941 

PRINT SPRINT ", «2 149LEF T,29RIGHT.OR 
a23?F GORWARODS?" 

GETASSIF AS="""ORASCD"1 "ANDASCD"2 “"ANDASCO"S ™ 
THEN 18@ 

PRINT "ky " 

IF RNOCL19C.145THEN GOTO 1690 

QN HAGOTQ 220,340, 460, 460,1010,1370 

PRINT ", « 2 EOU,zA CAN,ASEE.AA.AFLI GH 
TwzgQOOF - STAI RS,ZAGCODUING™®™ 


Check If You Want to Use the Stairs or Move Into a Room 


Z=INTCRNOCASM2D41 
IF Z=1THEN PRINT ", «2UPWNAROS.,.AINTO.4ATH 
Ea Gb OO: FT 4: 
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IF Z2=2THEN PRINT "2 2 OOWN,ZAINTO,ZBLACK 
NE SS a oe 

PRINT SPRINT ", 2240, 7YOU,A WISH, 
SE ed A BT SP SPRINT: og ee ue me a aoe Se 
ee ee TE 

GETASSIF AS=""ORASCS"A "ANDASCDO"2 “THEN 270 

IF AS="2 "“ORRNDCAC.8THEN 100 

PRINT SPRINT "2. 2. «2 @ ®@WHOOP S 2" 

FOR [=1 TO 1@Q0@3NEXT 

PRINT SPRINT "2 «2 SEO U,AFELL,AOOWNATHE 
aS i Wo RS 

PRINT SPRINT "24. 5,4. STRENGTH,ZPOINTS 
a TAK EN,AZAAWAY, "™ 

S=S-53GOTO 100 

PRINT ", 2 SEQU,CAN,ASE 
PRINT ", ~2FO,YOQOQU,.WAN 
ItTacCciA-WYWYES,2--N0078 
GETASSIF AS=""QRASCD'"A “ANDASCO"2 "THEN 360 

IF AS=""2 "THEN 100 

PRINT SPRINT "2. .REHE ~zODOOOQOQR,ZAOQOPENS gee 
D=INTCRNDCA>*25944 

IF D=ATHEN PRINT ", S I 
IF D=2THEN PRINT ", WI 
K ING," 

FOR I=1 TO SOQSNEXT 

IF RNDC19¢.7THEN 4590 
GOTO 194 


m™ > 
a) 


EFazaA.ADdODOAR,., '" 
T TOA OPEN, 


a 


LENTLY ad 
Tot a A cae 


Print ‘Behind a Door You Can See a Creature of Some Sort’ 


PRINT ".s . BEHIND,zATHE,.zAODOA 

PRINT "sa 2 EQULACAN,ASEEAA"; 

E=INTCRNDC 12944 

IF E=1THEN PRINT "N 4 

IF E=2THEN PRINT “, F 

IF E=3THEN PRINT ", DUM 

PRINT "a «zLQOKING,"; 

ON COGOSUB 1300,1310,1320,1330,1340,1350,1360,1370 

ON MGOSUB 1164,41170,1180,1190,1200,1210,1220,1230,14 

240,1250,1260,1270,128@,1290 

MH=INTCRNDC41)92944 

IF MH=41THEN PRINT SPRINT "2 2 TRE 2 ADVANCES 
gas 

IF MH=2THEN PRINT ¢PRINT ", 2. SEE 4 S 

PRINT SPRINT "2 .21297ATTACK, 2 
Twa2DRASAP*USELZALASPELL™"™ 

GETASSIF ASCD"1 "ANDASCD"2 "ANDASCD"3 “THEN 580 
IF ASCO™2 “THEN 64@ 


A N 
R I 


TQP S 
> RET 


=] -] -] -] -] 
mano gh 
sg gaa 9g 


PRINT SPRINT “a ga ao a SURES SMM PE 
FOR I=1 TO 800$NEXT 

IF RNDC1)¢.8THEN 100 

PRINT SPRINT SPRINT “2 2 RE .2OOESN’T 4 
Ta2aVYVOU,LANYHOWN ! "$GOTO 570 

IF AS="41 "THEN 732 

IF SP=@THEN PRINT "2 2 FOU.LHAVE.ZNON 
"2GOTO 572 

IF RNDC12¢C.35THEN 720 

PRINT $ PRINT "Kyo. wa PH HE w«zSPELL.AWOR 
D . "SPRINT 

SP=SP-1¢1F SP<STHEN PRINT "2 «2 EUT 4. YOU % 
~aSHQORT,AZAONAZATHEMAZANGOW. 

GOTO 91@ 

PRINT SPRINT "boa wo HEHE w«zSPELL.ADION 
aH ORR a 

PRINT “eas Tia SD UCST act ACO a Wid aA 

Rov 

Gata 57a 

IF RNDC19¢. 34 ANDINT CRNDC 121024 0CSORRNDC419¢.28 
THEN 320 

IF RNDC12C.8THEN 792 

PRINT "hi ' 

PRINT SPRINT "2 .7EQU’RE,A#™M@H EE" 
PRINT SPRINT “sa 2 2 ow a VEO SM 2 FS NTREIOFS 

END 


* T 


N G 


‘You Are Dead’: ‘You Are Wounded’: ‘You Have Lost Your 


Strength’ 


PRINT ¢ PRINT "ke 2 2 HE OU’ VE,A BEEN, W 
NoDEOD,AANOD,A YOUR, STRENGTH "9 
PRINT ",. «2HAS,BEEN.AHALVED. 
S=INTCS 2) 

IF INTCRNOC199<¢.dSORSSCCOTHEN 100 

IF RNDCI5¢C.4STHEN S70 


PT=INTCTRYINTCRNDCA#7IIOSPRINT "2 2 AL SO.a.T 
~rToNSTER,Z STOLE "Me OI NS wa F 
i 

PRINT ", «2 YOUR, PURSE... "™ 
TR=TR-M1T 


TR=0;GQTO 10@ 
PRINT "2 2PfFHazaNO! .AZhHE.wzANONSTER 
TO kL Eo AL ew YO UR 

PRINT ",.2 2 COINAGE. ,.zHAD,A LUCK. 
TR=03GQTO 180 

PRINT "lu ** 

PRINT “za «2 @ Ett.zaovdoo0one 


E 
R O 


“Ss 
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PRINT SPRINT ", «2 o2i—!EOU,.A KILLED,AHIAN, '™ 


a 


PRINT 


ee ey HE 


D 


2 HI S 2 


TT=INTCRNDC19#29 441 


PRINT T"C Q I 


NS 


IF TT=1THEN PRINT 
IF TT=2THEN PRINT a « 
PRINT ", ARE «zaNQW, 
TR=TRtET 
GOTO 100 
IF RNDC19¢C.3THEN 100 
"., «2 *&* *B& WHOOP S @ 8%” 
FOR I=1 TO 10@003NEXT 

:£ 0 U 


PRINT 


PRINT 
I T 
PRINT 


sPRINT 


ve re & 


T 


a 


dis, 


HN=INTCRNDC 1534) 
QN HNGOTOQ 108@,1096,1110,1130,1130 


GOTQ 460 

PRINT "., IS .~z~2NOTHING. " 

GaTa 10a 

PRINT “",. I SzA,A POOGL,AQOF,A ACI O 
GOTO T66 

SS=INTCRNDC1398#10)41 

PRINT "A RE "SS"M E TAL «~2SPIKES ! 
GOTO T7196 

PRINT "DE T10GORGON ! "SRETURN 
PRINT "H Y¥Y DRA ! "SRETURN 

PRINT "S ER PENT # "RETURN 

PRINT "G IT AN T ! “SRETURN 

PRINT "DRAGON ! "#RETURN 

PRINT "J U BILE X ! “*RETURN 

PRINT "Z2 OMBHdI E !$ "4RETURN 

PRINT "WR ATI TH ! "SRETURN 

PRINT "T1 I NOT AUR ! "4RETURN 
PRINT "DEV IL ! "SRETURN 

PRINT "WEREWOLF ! "4RETURN 
PRINT "O RC ! "RETURN 

PRINT "WARLOCK ! "4RETURN 

PRINT "lf WH IT E ,. ";2RETURN 

PRINT "F4 BL AC K , WW "';2RETURN 

PRINT "C OL QURLES Sy, ";4RETURN 
PRINT "FH RED. Wa ";2RETURN 

PRINT "SH YELL OW, WW ';2RETURN 
PRINT "R] GRE EN IW. ";SRETURN 

PRINT "33 PURPLE , IW '';2RETURN 
PRINT "SS BLUE ,. ld ";SRETURN 

PRINT ", sz FQU,.ACAN,ASEE,AZA"; 


Z=INTCRNDC 15824145 
IF Z=1THEN PRINT 


T 


a OE 


a A 


HE az 


a 


a 


FEtL,.OD OWN 


BOTT oO 


",.~, WOODEN "8; 


Mes 


IF Z=2THEN PRINT "N ,. I RON “5 

PRINT ". CHEST." 

PRINT ", .24# 0, YOQU,AWANT,ZATO,AOPENa, 
LY, 2 get © US ES SS ate = NM OD 

GETASSIF AS=""ORASCSO'A “"ANDASCD"2 “THEN 1430 
IF AS=""2 ""THEN 100 

Z=INTCRNDC199%104+15 

IF Z=4THEN 7? “LZ zZPH,A DEAR! ~z~AT «z2AHWA 
O00 BYW.ATRA nO UA C 
E.2zON,ZAPOQAI aGAS . "3S=S-10 

IF Z2C3THEN 1028 

IF ZCS8THEN PRINT ", 2: T g2WAS ZENPT YW. "8 
GOTO 1600 

PRINT ", «2 mo2 @H AHA! J.ZNNSI DEA I Safftia 
TIAGIC,A POTION.aAWHICH "™ 

PRINT ",z «~2YWYOQOU,A QUA‘?F‘F,AGREEDItLwYW. * 
Z=INT CRNDC 1920416) 

PRINT SPRINT "2 2 ail OU,A RECOVER "2Z2"°S T R 

FNGTH, POINT S ! ! "8S=S*Z3GOTO 100 


zm 

o 

> 

Nv 

> 
> 


ChexSum Tables 


td 


el eo oS ODS | 8 
KhHwvwnNrosoe9dgsgsedsedg9a290900 
goa 9g 


> be 


NNM NM NM NM MN 
AMA HWN Ee 
gg ggg qv 


N 
e) 
aN) 


= RE29 23a = 12k7 37@ = 32348 
= 3229 3aa = 1021 a= 6) 3162 
= 3938 310A = 2665 398 = 11A4 

engS 32a = 2355 EAQ = 2204 
= 3435 33a = AAR7 fia = 2374 

2778 248 A274 £20 = 1106 
= 2716 35@a = 32162 63a = 2616 

4149 368 = 2942 640 = 9416 
= avTS 27a = AAs 6B5e@ = 2956 
= 2PAT2 BEA = 1826 GEA = AATE 
= A756 Raa = 43216 B70 2405 
= PPRR 4Ana = 1622 Bea = 4646 
= 4{2RqQ 410 = 2618 6aa = 524 
= 1396 420 = 964 TAA = 2589 
= 1497 43" = 1120 F1iA = 2265 
= 41404 440 = 525 72a = S532 
= 2204 45a = 1648 73a = 2747 
= a74a 468) = 1449 74 = 1110 
= 2372 472 = 12317 75a = 372 
= 4554 4zRa = 13296 76a = 2125 

2ARA 49a = 4545 77a = 2560 

2544 SAA = 4225 ; TRA -_ 1429 
= 4332 318 = 92 79a = 6417 
= 2RGER 32Q = 2612 FAQ = 846 
= 2624 330 = 4828 RAA = 2174 
= 4113 734A = 140% 82a = 441123 
= PAdi S5@ = 2331 R20 =) a o1 3 
= 17Aa9 56@ = 2067 RA = 1322 
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oOo wWDdwWwW Dw Ww YN Ww mH 
QOVANMNNMNAWNRFPAQuoWMWA AA 
gagggggggggggagggaga says 
BS) 


De] 


XS 
A RWN PR 
S| iS 


nS) 


Pree EE 
>) 
nS) 


aes 
99 8 
qm 

S 9 


= 
i) 
aj 
BS) 
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iQ 
nN 
(a) 


HW) 
is) 
a 


be po 
WF WOAAN Dt 
sae 
a) 


be 1) be be pe pe bs is. 
9WrFMAAaW END BO 

PReEADANABRRPORPNNYWDABA 

YDeEADMNDAE DN KMNMER MOON A 


1020 
1098 
11a06 
A11@A 
1120 
A120 
1148 
1430) 
1160 
1174 
41180 
41120 
1209 
41214 
122n 
12320 
1244 
41254" 
1269 
1270 
1220 
1299 
132a@ 


iS 
me) 


be 
MJ al ta 


bo bo be bs bo be os be 
DOAN F WFD D OWN OMNUMAAUTMASD 
ANODFPWWORWNHAAMAYWOWWR 
YONNAAMERWDUBOTDN DTNB RUB 


[ 


1D 
n 
g 


i 


be 

DMM mM uw 
iD tM AN 
mips 


= 
=] 
MN TQ be 1D 


be 


be fs pe po 

PJjWAwW hk Ww 
Ao 

wmwwomm -~j] w 


ts) 
a) 

MQ9Ow an 
wos 
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Reel Thing 


CLASSIFICATION: Gambling 

Play a four wheel poker machine. You start with ten dollars and can 
win up to $2000. There are five different symbols — cherries, 
grapes, pine-apples, watermelons and, for big dollars, dollar signs. 
Spin the wheels and try your luck. There are different combinations 
in every game. Controls are £ to spin wheels and = to exit. 


PROGRAMMING SUGGESTIONS 


The odds of the wheels can be adjusted in this game. New symbols 
could be designed. Finally, the payout could be changed, for 
example, if cherry, cherry, dollar, dollar was to pay $39, then this 
could be inserted after line 63: 

If R(Z) = @ and R(1) = 9 and R(2) = 4 and 

R(3) = 4 then W = 39 


tor 


Program 


Variables 
WH Weighting of each symbol on each wheel 
R Symbol currently showing 
SC Screen memory 
CL Colour memory 
CR Money 
W Amount won 
WT Weighting of wheel 
eT Random function to select symbol 


152 


Listing 


130 


140 


150 
166 
17@ 
120 


190 


Initialise Game and Draw Title Screen 


VOL SF COLQRG@,2,6*2CQLOR4,2,62COLOR1,14,4 

PRINT "WW 2 2 mw ow THEM PSB wa PBZ a KMea waa nee 
Pa Tea Tea Ta Ta Ta 2h SN a CE 
PRINT ", ~ a oa Prk se ow. ks aH ow ow wo 
F=4q 2k. ENGR 2 UR a rf a CE" 


a a 4. a» + re a. a 4 a i™ ~ ?: a o = 


DIMUHCS, 493DIMNRC399SC=182499CL=5529643CR=103W=02 
GOSUB GROASFOR T= TQ B3ERCII=OSNEXT 
COLOR1A,2,35PRINT "WW 2 2 ow AT EMR BEN a wee 


Sw SEF KEN aw ee ASE ST SET SKN ee Se eee” 
PRINT "BEEP ECE NS SS Se SE a Ge Me Ee oI! 
ae ie Bin iin es FP ile Die in fie Din Fs 

PRINT “BRM HE ®S SS SWE. ah DS BCE ew I 
eS we ae EN CE 

PRINT "BPR H ®S SSS WE ow 2 EBS WN WE 
Se WE. ea EN NCE 

PRINT "BIR M ES S&S Sw WHE. 2 EW DD WE ol 
eee We we ERS NCE 

PRINT "BPR H GSS DWE 2 SEAN Ek 


ee ee ie ie el i i in i ie Hs 
rey igrthag ege oaseR i Rae ce eae coi ek 


PRINT *coLoRi, 2, 42PRINT aT un a: ae ER OO I OO tae 
BOE ae. ae ce a des as cas OE EE 0 gs OE DCE 
GOSUR 21AQSGOSUB 240 


Get input 


GETASSIF AS=""THEN 15@8 

IF AS=""= ""THEN 200 

IF ASCD"£ "THEN 150 

CR=CR-1°3GOQSUB 21@2GOSUB 2402GOSUB 288@¢GOSUB Ss8oa¢ 
IF CR=QTHEN 200 

GOTO 15a 


End Game 


153 


2A 


21a 


248 


154 


COLOR’,65PRINT "HU MMH HW HM wNHNuuuuUuuu 
©) BF ee BP BP BPW Eb LU, «z2zTHANK,A YOUS, 
FOR, PLAW ION G !$ "SEND 


Print Credit Rating 


COLOR’,13,4¢PRINT "HUM UMUN MMMM 
MM. we wa CREDIT. S 2a we a ew ae 
We"5cR 

COLOR1, 84PRINT "HU MMMM MMMM 
By bl By by BY By By my ed et By "SCR 


RETURM 
Print Payout 


COLOR1,13,4¢PRINT "HUUOWUUUHNMoHoeHeeuUeen 
CO) Be Bd OD BB BB) BS) BD Bd Bd BB Be) BP BB Br BPP OA 
YQOuT.$ «2 «2 o2 o2 2 o De” 

RETURN 

COLORA,&83PRINT "SHUM WUHMHNMHUNHNUuUuUuuUuUuuy 
Bi BE BS By BD BD BD Bi BD Bd Bd BD BD Bl BD Bi Bi BS By By Bl BP) BS OB BS 
SR | ee 


RETURN 
Spin Wheels 


FOR I=4 TO 4*¢COLOR1,10 
PRINT "SMM GW WW ";4FOR K=1 TO S¢FOR J=4 
TO 441F IC=JTHEN PRINT "8 B) BE BD BE % “St 
GOTQ 310 
PRINT "RS BI BI BIB) BF BY BI BI O°; 
NEXTISPRINT *NEXTK 
PRINT "SW W@W WWW ";4FOR K=4 TO SSFOR J=4 
TO 4¢1F IC=JTHEN PRINT "12 BE BD BL BS SS SS 
GoTa 34a 
PRINT “"B) BS BD BI Bt Bl BI Bl BI O°’; 
NEXT JSPRINT *NEXTK 
IF T=4THEN PRINT "SO GF) OO 2 ©) ee Be 5? 
GOSUB 410 
IF I=2THEN PRINT "HO WW © |W © © BS BD BD Bl Bl BD OB BD OB 
Be ee e's; 2GOSsuUB 410 
IF Y=3THEN PRINT "SOW YW © WY © © BF 8 BP OB) BB) BR? BD OB) 
BB) Bl By Bl BS BE OB Be Bl Bi BP) BP BY °° SGOSUB 419 
IF I=4THEN PRINT "SE 1) 1) © WW ©) oP eB) BP Bt Be) om 
Bi) Rt BS BY BP BY BB) BD By BD BD OB) BD Bd Bl BD Bl BE Bl BE BY O'S S 
Gosue 44a 


SOUND 1,200,53NEXTI 
RETURN 


Select and Draw Symbol 


WT=OSFQR J=Q TO 44WT=WTtWHCO1-1, JOSNEXT 
FT=INTCRMDCQ)*WT #194 I=0 

FT=FT-WHCI-1,J.931IF FIC=Q@THEN RCI-12=JSGOTO 470 
J=J4131F ICATHEN 430 

RCI-41)9=4 

PRINT "M2 a2 oo a WD. ee a 

WoS t+ 2. OS et OP 8 
aa eRETURN 

IF JO@QTHEN Saa 

COLOR1,1@,4¢PRINT ". 2. a2 a2 2 DU wk 

OM i | ee ae 

COLOR1,3,4¢PRINT "WWTP HIP. @ . @ . 
aoe » «a eRETURN 

IF JD>ATHEN 532390 


COLOR1,1@,42PRINT "2 2 wo 2 ow Cw wk A 


on. 
, 


COLOR1,5,4¢PRINT “PN ED UP Ih. @ @ @ 2 0) On 
ao @ 2. OU a aw ow a “SRETURN 

IF JID>2THEN 560 

COLOR1,6,4¢PRINT “. . 2 a ow DY ce 


a 


COLOR1,9,47PRINT "OO OP Ge. wR we a 
a~ao Mon. WWMM. 2 a ew ow CT SRETURN 
COLOR1,3,63PRINT "2 «2 2 2 o DOE OE 


ae 
- 
. 
s 


— — & 


a 


COLOR1,16,427PRINT "OU MG. NW. @ PL. 
BP. 2k ek Dw aw aw ow ow “S RETURN 


Calculate Payout 


I= 

IF RC@D=@THEN WeHel*+is1F RCAS=OTHEN WH=WtisIF RC2d=8 
THEN WHW4+49S1F RC3SS=OTHEN LJ=LJ+17 

IF RC@I=1ANDRCA=1A THEN WHlI4+39IF RC2S=ATHEN W=Wt132 
IF RCSI=1ATHEN WH=W+2@a 

IF RC@I=2ANDRCAI=VSTHEN WH=W4+4eIF RC2S=2THEN W=W+6ae 
IF RCSI=2THEN WHlJ+20 

IF RC@)=3ANDRC1)9=3ANDRC29=3THEN WEWti76cIF RC3Sd=3 
THEN WH=LJ#154 

IF RCB)=4GANDRC1.=4ANDRC2I=4THEN WHeW*+1 205 I1F RC3S=4 
THEN WH=LI#enaa 

GOSUB 2bASP=L 


150 


GRa 
63a 
TAO 
71@ 
72a 


IF WPa@THEN FOR J=4 TO INTCP/10.¢CR=CRt109W=W-102 


GOSUB 22QsSQUND 1,990,19NEXT 


IF WO@THEN FOR J=1 TO LIF CR=CRt1ISW=W-1isGOSUB 220% 


SOUND 14,1000, 1°NEXT 
RETURN 


Establish Weighting of Wheels 


WHC, Q2=85WHCO, 19=8SLHCO, 2.=SFWHCA, 39=3¢WHCO, 4)=4 
WHOL, @2=43WHCO1, L2=49WHC1, 20=3SLWHC1, 32=34WHC1, 49=1 
WHC2, @=33WHC2], 12 =42 WHC], 20=34WHC2], 39 =44LIHC 2, 49=2 
WHOS, @2=22WHC3,19=42LHC3, 2.=3¢WHC3, 32=SSWHC3, 4>=4 


RETURM 


ChexSum Tables 
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= 204g 25a = 142 
ee 268 = 3aG2 
= Ae 278 = 1423 
= COR 280 = 4479 
= 3489 298 = 5352 
= 7612 2aa = S67 
= 6157 318 = 697 
= 6157 320 = 5223 
= 615% 2320 = S67 
= 6157 249 = 697 
= 6157 250 = 16728 
= 6661 26a = 1944 
= 3334 37@ = 24n2 
= 67e AZRA = 2962 
= dele 239 = R858 
= 3193 40a = 142 
= T3441 410 = 2975 
= 38207 420 = 1924 
= 526 420 = 2786 
a 440 = 1442 
= 3384 45a = TAR 
= 602s 46a = 7048 
= 142 470 = 777 
= 91841 4Ra = 3756 


430 
308 
318 
ee 
330 
348 
S308 
368 
a3 7@ 
n= 4 
230 
sag 
61a 
62a 
63a 
648 
65a 
66a 
67a 
BRA 
69a 
7aQ 
718 
T2a 
TOTAL 


tou 


i 


Road Patrol 


CLASSIFICATION: Shoot Up 

Move your vehicle left and right along the bottom of the screen, 
avoiding the aliens’ bombs descending upon you. You can fire at 
the aliens by pressing the SPACE bar. Move left and right using the 
| and P keys. 


PROGRAMMING SUGGESTIONS 


Increase the speed of the missiles so that the player's reactions 
have to be swifter. Occasionally place barriers around the patrol 
car so that it is paralyzed. 


tos 


PROGRAM 


Variables 
PA$ Patrol car 
SA$ Alien ship 
MS Missile in flight flag 
SV start of screen 
SC score 
K1 Start of machine language routine 
E Flag to indicate end of game 
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Listing 


1@ REM ROAD PATROL 
A RESTORESFOR 1=1 TQ 4@QSLNS=LNSt", "“SNEXTSPAS="\ & ®R 
eR - ODM. @ 0. @ USL TSHR” 


3a FOP 1=4 TO 224LTS=LTS¢#"p) “"SNEXT 
4A FOR T=41 TO 4MtI1S=IS4+"B) “SNEXTSFOR T=41 TQ 25¢HS=HS 
4°) “SNEMT 
5a PTS=". ng gw ww a VM EKI=120006SV=3072 
Read In Machine Language Program; Define the Ship and 
Alien 
=) FOR I1=@ TO AMSREADASPOKE 1200041, ASNEXT 
7a PRINT "lu "";$GOSUR 42@¢SAS=", © @e@eeer>, " 
ZA GOSUB 4S9ASPRINT "hy"; 
an PPINT "\y “;4E=@SPO=174PRINT LTS;LEFTSCLNS,PQ);PAS$;% 
F=ASFA=A2RQ=2 
{AQ MS=Ashl=ea 


118 PRINT "EE'G"S C Q RE > 4, ";3PRINT USING'#H # # ";3SC 
>sA=PEEKCIISIF1F A=332THEN GOSUB 120 


Main Logic Loop; Move Your Ship Backwards and Forwards 


12a IF A=G41THEM GOSUBR 22@ 
130 IF A=GO@THEN F=4 
4 


4a IF FTHEN GOSUR 25@3 IF ETHEN GOTO 3@ 

abe) GOSUR 31@8 

16@ IJCHINTOCRNDCAMLVISIF IC=ATHEN FA=1 

A7A IF FATHEM GOSUB 23031IF ETHEN 9@ 

Aza GOED G -st20) 

12a PRENT LIS3eore Fs 

2A” IF PODSATHEM PO=FPO-4 

21 PRINT LEFTSCLNS,PQ);PAS; SRETURN 

22 PRELIM tres; SsrTs. ka 

238 IF POCSSTHEN PO=POtL SPRINT LEFTSCLNS,PQ);,PAS;9 
RETUPT 

248 PETUPFM 

250 IF fIS=1THEN 278 

2-6@ PT =HPOFeFR=2Oghis= 

ae) POFE Tf, 222 TM=CSV4CR®4AD4+PT D 

= 2A IF PEEK CTI CS 22THEN GOSUR 29@3E=193MNS=OFRETURN 

pr AR IF R=@THEN PIS=@SPQOKE TM, 2323F =O2SRETURN 

228 POKE TN, 20@9SR=R-ASRETURN 

3210 IF CO=20THEN GOSUR 570A 

Bek PPINT "BY ";LEFTSCHS,RO?;LEFTSCIS,CQ);,SAS;>°CO=COt1? 


RETUPN 


Tog 


ee Bombs On You; You Fire Up at Alien, Check for 
ras 


IF fIlL=1THEN 35a 
ZN=HCO+SFSPF=HEROF+1SML=4 

POKE RD, 22¢RD=SV4cPFe4004+2N 

IF PEEKCPDIC>22THEN GOSUB S5S4Q2E=12 RETURN 

IF PF=24THEM ML=OQSF1=QS RETURN 

POFE RO, 2OASPFH=PFe1ASRETURDN 

FOR T=4 TO A53FOR J=4 TO 204CQOLORG,1,4¢NEXTSNEXT*E 


, T=390 TO 1023SSOUND 3,1,5¢NEXT 
ST=HSC+2ASCOLOR4, 1, 237COLORO, 4, S¢RETURN 
PINT "“ “;TABCAZ29;"P A TROL,CAR" 
PRINT SPRINT PFINT "A VY OTD, THE,Z ALIEN 
we BO A Be cas OR cee Oh oe, CE OW a 7 a ce 


BRUM 82.6 or Eh oi QT Ae ~ P ue H EY SP oe PO 
F.e2aRIGHT.ZAND.,ATHE , “SPRINT 

PPINT "SPACEBAR.ATO.AFIRE.w.AAT.ATH 
Ea Ab TP EON. 6-00 Dak. WY CK of “SPRINT = 

PRINT SPRINT 

PRINT TABS SZI;"P RESS ,RETURN,ZATO,ZASTA 
Ro 5 

GETASSIF ASTDCHRSCA22THEN 47Q 

RETUPM 

PRINT "SLE MT ER 6b EVE L200 -F 2 0 T FF Te 
MLE TY.B-EASYLA-HARD "; 

GETASSIF AS=""THEN Saa 

IF ASC™A "QRASD"S “THEN 5ae@ 

LV=VAL CASS RETURN 
DATAI62,79,169,32,157,152,15, 202, 208,250, 96 

PRINT “HH ";TABC12.>;"HMPATROLACAR,AODEST 
RQYED a= ";2SC=Ssc-10 

FOR I=1 TO 1@$SQUND 41,5,8¢SQUMND 2,5,4¢NEXTSFOR I=4 
TO 1@QOSNEXTSCOLORG,2,5¢COLORO,4,5 

FN ERE, SCE NENC D2 Gee Say Ze ees ke Sk eee kak Cet ee 
ama a 7 RETURN 

PPINT "St ";LEFTSCHS,RO);LEFT$CJ$,CO);RT$; 

RO=INTCRNDC1)*2@).¢1F ROC=4THEN SSQ@SELSECO=1 

RETURN 


ChexSum Tables 


10 = a) 218A 
20 = 6267 eek 
328 = 1914 230 
JA = 2636 240 
= eARA ean 
a = 2iee DEA 
TA = 24976 27a 
RA = 24 22a 
aA = 44R25 2aA 
1aa = 55 2AA 
1410 = 4AAF 240 
12a = ato 227A 
{3a = A723 R2A 
140 = 416329 QAM 
15a = 235 25a 
16@ = £447 268 
17a = 12309 27A 
LRA = S26 B20 
190 = TTA R2aA 
2A = 145923 AAA 
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A fh 
Mm mM MW 


iD be 
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Letterbox 


CLASSIFICATION: Educational 

Catch the falling letters and post them in the letterbox on the left. If 
you do not catch them, they will go into the dead-letter box on the 
right. If you fill the good-letter box before the dead-letter box, then 
you will go to the next of the five floors. However, should the dead- 
letter box be filled first, you will go back to the previous floor. The 
letters fall faster for each higher floor. 

Move the mailman left and right with the left and right cursor keys 
prior to the letter falling. When the letter is falling the mailman can 
only be moved right by pressing the key that matches the letter that 
is falling. To move the mailman left, use the same key andthe shift 
key. 


PROGRAMMING SUGGESTIONS 


Have more than one letter falling to the ground and award bonus 
points if the player catches the letters. 
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PROGRAM 


Variables 
A$(24) Random letter table 
A$(0) Used for mailman movement with cursor key 
C$ Colour table 
LM$ Left facing mailman 
RM$ Right facing mailman 
LV Floor level 
S sound register 
SL Good letter stack (number from top) 
OR Missed letter stack (number from top) 
X4 Horizontal location of mailman 
DX Direction of mailman 
N Number of dropped letters 
K Row number of dropped letters 
M$ Key pressed 
M ASC value of pressed key 
K1 screen location for stacking letters 
ie Colour of dropped letters 
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Listing 


1a 


REM LETTER BOX 


Define Variables: Draw the Post Office 


VOL & 
DNS="HoO HHH MMH UeUUuUNuUuwUuUNuUuueuUuUuuUueds 
vw °° 


se 
a ~ a» »~ a a, ae, a a a a a a. a a » 


RTS="E] BF Bl GF BY 8) By Bl Bl BP BT BY By BY BD BS Bi Bl BP Bt Bl Bl Bl 

BFR) BY BS BY BY Bl Br Br By By Bi BD Bl By Bre” 

DIMAS C2493 ASCOO="B "SCS=""3 wa AN COE mm 

LMS="s © 2. OE H 4d 2.2 OM. “SRMS="e 2. OW. 
Fem. ESL V=41 

SL=2Q3SR=2193X1=INTCRNDC .>*894+109DK=1 

IF LVCATHEN LV=i4 

IF LVOSTHEN LV=S5 

GQOSUB 348 

FOR L=41 TO 243 ASCLI=CHRSCINT CRNDC. 5*26465)09NEXT 

PRINT LEFTSCDONS, 214 .RIGHTSCRTS, XiDRMS; 

E=INTCRNDC . #40 4+19F=E4+6-LYV 

FOR J=E TQ FSPRINT “SS BE BD BI BE BP. 2 we ee tm lr lr 


ee 
» a » a a a a» a» a» a a a a ~ a a 


N=Q@2FOR I=1 TO 24 

GOSUB 440 

PRINT "“E} WY "MIDSCCS, J,L,TABCT #50 ASCID; 
NEXTSNEXT 

PRINT “BY "°SSN=INTCRNDC. 9829041 

FOR K=1 TQ 22 

PRINT LEFTSCDNS,KITABCS4NO"", © FH “MIDSCCS,F,1,ASCND 
| eer 

FOR T=1 TO &5-CLVBL299NEXTSGOSUB 4428 

IF SL=QTHEN LV=LV4193N=SR3GOSUB 7A02GOTQ 80 
IF K=23THEN 1208 

NEXT 

FOR T=44#N TO 32 

IF T=8ATHEN GOSUB S103T=T#12GOTQ 3200 

PRINT TABCTO", "MIDSCCS,FOASCNISPRINT “TO “5 
NEXT 

GOSUB 76@ 

IF SR=@THEN LV=LV-19N=SL3GOSUB 738°GOTO 38 
GQOTQA 120 

COLORO, 7, 52CQLOR4,7,53PRINT " * 

PRINT "\. fi OO RP 2 aw ow NM ar ro rawr nr mee awa ewe 


a a ~ a a » a a a aA a a a isd ve A a a sa > 7 
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7aa 
710 
720 
730 
74a 
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FOR IT=1 TQ 22 


NEXT 


ee 
» » a a a a» a a a » a & a a a a a 


PRET Oi: mr oe Sat oat a) a ae ee ae ET Re 
ON 6 ee ae a ee ae POL oo FER Lvs” 
PRINT LEFTSCONS,21)"B) BJ Wi. Wi ee 
PRINT LEFTSCBL$,299"0 IN 
RETURM 


292 
a 
> 


Move Mailman Left or Right, Depending on Key Pressed 


REM MQVE MATLMAN 

GETMSS IF MS=""THEN 540 

IF MS="81 "THEN PRINT "Wy “SEND 

IF MS=ASCNITHEN MMS=RMS2DXK=13GOTO 3198 
M=ASCCMSISM=M-128 

IF M=ASCCASCND#CHRSC@ITHEN MMS=LMS2DX=-13GO0TO 3510 
Mm=""2GOTO 54a 

PRINT LEFTSCONS, 21,RIGHTSCRTS, X19°0MS; 
KL=KXAFOXSTIF KACSTHEN K1A=5 

IF 41>29THEN K1=29 

IF KC2@ORK>22THEN RETURN 

IF DK=—-1ANDCKACCN# 30 0RK1IDCN#t5 02 THEN RETURN 
IF DX=AANDCKACCN# 4 0 ORXIOCN#69 THEN RETURN 
FOR T=S4N TQ 3S STEP -A 

PRINT LEFTSCONS, 22,0 TABCTINIDSCCS,FIASCND'TE) “LMS 
NEXT 

FOR T=S5 TQ 2 STEP -14 

PRINT LEFTSCONS, 22.) TABCTIMNIDSCCS,FXASCND™, * 
NEXT 

PRINT LEFTSCONS, 22°9TABCS9"O “LMS 

REM GOT LETTER STACK 

FOR K1i=30744*SL*490 TQ 3207442040 STEP 40 

POKE Ki, PEEKCK1#+4@) 

NEXT 

POKE K1,32°3SL=St-1 

N=1°GOQSUB T7OASK=232 Ki =SSRETURN 


Make Sound for Dead and Live Stacks; Put Letter in Dead 


Stack 


REM SQUND 
SOUND 1,25,25 
RETURN 

REM SQUND 
SOUND 2,5@,15 


750 RETURN 

760 REM MISSED LETTER STACK 

770 FOR Ki=31054SR*49 TO 3105#+21%40 STEP 40 
TRA POKE Ki, PEEKCK1#4@) 

7908 NEXT 

RAO POKE Ki, 323SR=SR-1 

R16 N=12GQSUB 732@2RETURN 


ChexSum Tables 


10 = Q 220 = 2348 ss@ = 32a5a 
2a = 2279 290 = 1984 S6Q@ = 28523 
aa = 41064 20a 434 S7@ = 12327 
4a = 23417 219 = 302 S2Q = 2576 
5a = 2415 320 = 2939 soa = 134 
Ba = 2588 33@ = £527 sea = 19629 
7a = 4799 240 = 41522 618 = 2229 
za = B410 350 = 3474 629 = 434 
aa = 4426 260 = 740 630 = 41565 
10@ = 4128 37@ = 2957 649 = a 
4140 = 2a9 22a 134 65@ = 25993 
120 = 3092 290 = 2444 66Q@ = 10323 
130 = 4826 40 2765 67a = 4134 
44@ = 22327 41@ 1259 62Q@ = 1252 
45@ = 2418 42@ = 41529 69a = 1730 
162 44116 4320 = 143 7aaQ 8 = Q 
4178 = 3a@2 440 = Qa 710 = £586 
180 = 41888 45Q@ = 41232 720 = 1423 
1938 = 22a 46a = 1435 73a = 4) 
20a = A767 470 2647 74a = 24 
210 = 748 48@ = 41424 750 = 142 
220 = 3a59 492 = 3667 76a = a 
220 = 2037 sea = 9a4 778 = 2609 
240 = 2924 510 = 41833 72a = 1039 
258 = 839 520 = 1946 79a = A434 
26@ = 4134 53a 4197 ZAM = 1284 
278 = 924 540 = 12380 RiQ = BTR 
TOTAL = 11417530 
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Ganymede 


CLASSIFICATION: Strategy 
The purpose of this game is to run asmall moon base on Jupiter’s 
satellite, Ganymede. You must attempt to set up a mine on 
Jupiter’s surface and collect the valuable ore deposited there. 
This treasure means life to you as you must sell it to Earth to 
obtain money to buy supplies and the vital oxygen which your 
people need. You must also build more mines as they can be 
destroyed by storms on Jupiter's surface. Can you sell enough ore 
to Earth to buy the oxygen you need, or will you suffocate? 


Commands are: 
Import oxygen from earth. 
Build spaceships. 
Load spaceships with mining equipment and personnel. 
send your loaded ship to set up mines. 
Recover some mined ore from the surface of Jupiter. 
sell recovered ore to Earth. 


Oe Ole OO 
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PROGRAM 
Variables 
MI 
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Mines 

Money 

Ships 

Ships loaded 
Ore held 

Ore on planet 
Population 
Year 

Oxygen 

Total ore sold 
Fuel 

Number of aliens 


Listing 


REM GANYMEDE 

MI =Q>M=20002S=12L=A40BR=0 
OM=O>P=502 VY=A20=200 
DEFFNRCRD=INT CRNDCRI#R4+1920S=0 
COLOR4, 7,43 COLORO,13,3 


Clear All Variables; Print Instructions and Supplies 


PRINT "NK G.a*®*®.GANYNEODE, 

PRINT SPRINT "M YEAR «2 «2 aw aw ma a mw 2OOOtVS 
PRINT 3 FTO NEW a ce me a ca Gs a Ee 

PRINT "t# POPULAT IQN, 4« « “PSPRINT "2 O X 
WS TE IN a ae Ges tes aa ae 


PRINT "$H ORE .~HEULODy, « «2 «2 «2 “OBSPRINT “ORE 
2 ON,.PLANE T "OM 

PRN: 29 oe IM ES So as oa ta ee 

PRINT "a SHIPS 4. «2 ww wa a ow ow "SEPRINT "S H I 
PSs es: hy Oo BE De i A 

PRINT SPRINT "MH INSTRUCTIONS ¢ "9 

PRINT “fT 1.0% ¥ BU ILOD"™,"aw 3 


GEN ","wS 2 a 
aL OAD ","4$8 4,2M INES * 
PRINT "Hm 5 .2RECaQVER , 

PRINT SPRINT “lf T Y PE. INSTR 
GETASSZIF AS="LI ""THEN 190 

IF ASTT4A "“QARASS"E “THEN 15@€ 

PRINT “ly "SQN VAL CAS IGOSUR 264, 430, 480,540,670, 22a 
PRINT “Bm PRESS ,.A.-s. KEV ™ 

GETASTIF AS=""THEN 180 


om 
4 
mo 
QO: 
4> 
z 


Print Report for Game, Amount of Oxygen Left, Supplies 


Used 


PRINT "Kum «2 a2 aREPORT,ZFOR,ZA WEAR "4 
=VYtisSPRINT 

R=FNPCP /“203P=P#RSFPINT “mm "RC HILL DREN, WE 
RFE. BdQR WN "30=Q-P 

IF OQCPTHEM PRINT “gg "P-O"™P E 
PRINT "Q F ,zQX* ¥Y¥GEN, S&S 
=A 

IF MIS@ANDFNRCIA=10THEN PRINT "EM I N E “FNRCMID" 
WAS .zDESTROQWE D “SMI=MI-1 

IF MID>Q@ANDFNRCA@XSSTHEN 220 


> 

oO 
_ 
m 
ne 


sta 
v 


S: UP Pt AE 
TARVAT I ON *"3P 
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248 
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IF PCeSTHEN PRINT SPRINT “la@ bt IF E,z ON,A BASE 
ie oaks ae Va ae ee ES De ON i TS. SA DP tS 
GOTQ 22a 

IF MISQ@THEN R=FNRCMI*49"FNROMIOSPRINT "S$ “RK G % S 
~aO F,ZAQRE, WE FP E "SPRINT "M INE D "30M=0M 
+P 

IF OS>2AAQTHEN PRINT "a T HE «~zGQOVERNMENT 
TS a OR A ta TO Ege OD RCE“ Eo GOR a? CS 
"sGOTQ 32@ 

R=FNRCPOSPRINT "BR "RU N IT T 
Tee RIN? TER EE 2 RE ©. 

IF FA. 2C=QORFNROSICSTHEN 330 

PRINT SPRINT "f] THE «~zPEOQPLE,AREVOLTE 
po 

IF PDeABANDPCTSTHEN 320 

PRINT “me THE YW ,.OVE R- RAN.a.THE.ABA S 
F.AaAND,A FARK I LLCE OG. Y OU "“SGOTO 926 
PRINT SPRINT “ld Y OU,A STOPPED, THE fi "Sh 
=M1-2005P=P-FNRCP-2>SPRINT "4! THE RE, WERE , 
Con SL Ae. F. 4 ES: * 

PRINT SPRINT PRINT "fT? PRESS ,ZA,KEYW" 
GETASZIF AS=""THEN 24a 

GOTO 6@ 

RE A PS as es ae ge tee: se ee a OY 
W.,HAY E "O"U N IT St 
R=FNRCASI+415SPRINT SPRINT "HC OS T "RF AR 
I FPING" 

RI=FNRC241SPRINT “AND "RAP ER, UNI T "4 
PRINT SINPUT “lf BUY . HaAaW.MUCH "sn 

IF N=O@THEN RETURN 

IF N#¥RA+ROMTHEMN PRINT "EH NO T,ZENOUGH,ZANO 
NE Y ""3GQTO 327@a 

M=M-— CNP 14#RIZO=O+8 

RETURN 

PRINT ",. 2 «2 2 wo» wa ma oa bh SHIP S “SPRINT “SS ¥ O U 
a AoA MOE sts He oP oS 

P=FNRP CAS I+A53PRINT "SS C QS T "R™I NGLABAUR 
~aANDANATERIAL S*"* 

INPUT "My BU TLDAHAW.AMNMAN ¥Y "“ZNSTIF NXRDOM 
THEN PFINT "SEN OT .2ENOUGH,ZANONE YW "4 
GATA 45a 

M=M-R3¥NFS=S4tNn 

RETURN 

PRINT "“. 2. «2 aw ww mw ah SHI PS “4PRINT “SY OU 
2a HAN E “SSPRINT LSA RE. LOADED "*" 
R=FNPCAMO+253PRINT SPRINT "a COS TS "R"T QO, LO 
A Dw A “SPRINT “"S H YP 

INPUT "LOAD .AHOW.AMNAN W “SNSIF N#Los 

THEN PRINT "FAM OT .2ENOQOQUGH, SHIPS "4 
GATQ Saa 


a) 
rr 
<— 


“SPRINT “lg ¥Y O 


Pa ae 2 


IF R#¥NOMTHEMN PRINT "N O T 


"SGOTQ Saa 


M=M-RENSLELEN 


RETURN 


PRINT “my 


0 


aENOUGH,ZANONE ¥ 


Send Ships to Set Up Mines; Check If Any Ships to Send 


aHAvVeE 


“ES. HE PS 


ADEDAANOD,A READY "™ 
END,.AHQWN 
"TiS TOO.ANAN VY "SGOTO 
IF M=QTHEN RETURN 


INPUT “S$ S 
CNTHEMN PRIN 


L=L-N 

PRINT *PRIN 
Pe ee 
IF FOMTHEN 
"2GQOTO Sxa 

M=M-F 


T 


T 
I 


a MAN YY "SNSIF NSLORP 72 


"TE HAW.,ANMNU CH, F U 


Ss 


S$. awn *%s$ 


PRINT "YN QT 


INPUT F 
~aEN OU G 


R=2-CFNRC4)4 .SOSITF R¥EIQHNC=FTHEN 650 


PRINT °'S@ hi 


MAIAMN-FO VAAISIF R=ATHEM 


IF RONTHEN 
S=S-P2PRINT 
0 “SN=N-R 


Q 


P. 


PRINT SPRINT 


TABL I 
hE ee 


S 


| 


=NM 
7. 


a EN OU 


"P'S HT P 


GH,.FUEL 


R=1 


a AOR Ee 


"Ia NT TNE SS, WERE 


H 


MI=MI +NneRETURN 
PRINT "pm wYau 


INPUT "S E 
THEN PRINT 
IF N=QTHEM 


PRINT PRIN 


MN 


D 


ED,.QWN 


aH AVE 
a HOW gs 


Ce ee ee ee, ee eS 


"S'S HIP S 
MAN Y "SNSI 


"eo TAQ, NAN YW "4G6QTO 6 
RETURN 
IF NSS-LTHEN L=S-N 
"mM HaAW,. MUCH, FU 


T 
I 


S 


Sb “Oo Mrs 


IF FOMTHEN PRINT "SY N O T 


"sGOTO 718 


INPUT F 
~aEN OU G 


M=M-FSIF ON=@THEN R=Q3GQTO 200 

R=FNRCOPBE2) OMS IF REAQHNC=FTHEN 780 
PRINT “4 N OT 
*MIAMMN-—-FD -AADSIF R=QTHEN R=4 


IF RONTHEN 
S=S-RSPRINT 
D "SN=N-R 


R 


=N 
™~ 


a EN OU 


“"R'S HI P 


R=INT CN#1@%R+4.5) 
R=0M 


IF R>DOMTHEN 


PRINT "@ "'R'K G zs 
PRINT "R ECOVEREOD" 
ON=O0M-FsOB=OB4R 


“S$, OF 


GH a F U £ Lk 


S 2 A R © 4 


"SPRINT “L O 


rake] 4) 


Eb a F OCR 


H.zANOQOQNE 


"esR=INTCCR 


STRAND 


"SPRINT "E 
awmJtuP I 


F NOSORP 72CN 
&O 


Ek a2 F OR 


HwzaMNONE 


"’sR=INTCCR 


a 


Y 


E 


S 


y. 


STRANODE 


a OR Ew bob ike 
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Pe) 


x) 
WwW fy 
gy 


RA 
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RETURM 


PRINT “Sc «2 «19 S-E bb aw T Onan a2 GE ART OWS 
PRINT SPRINT "WY QU .AZHANV E “OB"K G *% S "9 
PRIENT 8 si ae 7E bk we 


F=FNRCSOFSSPRINT “"h THE «~GOVERNMNENT « 


P 


AY S “FSPRINT "P ER. K G "SR=FNRC20) #259 R1=F NRC 


S243 


PRINT "Hm TRAN SPOQRTATIQN COST Ss 


PRINT RF OR, F UE L “SPRINT "SAN D “RA'P E R 


a K G "SPRINT "QQ F 
PRINT “l# HOW,AM 
INPUT "TQ, SEL 
IF NOOBTHEN PRINT °° 
A PY ge eee PL: 
IF N=QTHEN RETURN 

IF RA*N+RSOMTHEN PRINT "YN OT . ENOUGH 
NE Y "SGOTO 86a 
QNR=OR-NIM=M-CRARN#ERISPRINT “ly 
EN T , Q F “SPRINT "gs E AR 
pam lc 

M=MN+F #2 OS=OS4NFRETURN 


E 
~a0DO0,.A7YQUU,A WAN T 


U DON *7 TAZAHAVE 


se R 
U H 
L °°SN 
th Q a 

*GOTQ 860 


4 4 


Print Message Thanking Player for Saving the Planet 


sta 
v 


ata 
Vv 


FOR [=41 TQ S@Q@@@tNEXTSPRINT “WO THE .wz4GaAVE RN 


MENT,AOQF,.a.24e ma a BEARTHE|.ATHAN K 


Sie Ww Gk AE SF 

PRINT "F QR, WYOQOUR,A SERVICE, QF "WE 
PRINT "WY EARS 

PRINT SPRINT “HH Y QU,A MADE, £ “MEPRINT ¢& 
PRINT "@ AN OD.wzASQLOD"AS"K G ’% S "SPRINT "O F 


8 5 ame ede 
END 


a 


ChexSum Tables 


41a = a 330 = 1587 650 = 4369 
2a 23A3 24a = 1214 66a = 339 
3a = 47190 25a = 476 B7A = 1648 
4A = 24A2 26@ = 229442 BEQ = 46723 
50 = 114214 27a = 3411 62a = 757 
6a = 1401 220A = 4406 7aan = 15@6 
70 = 3139 34a = 757 71a = 3244 
20 = 2AAT 4ne@ = RAAR 720 = 2875 
20 = 2425 410 = 1969 73a = 2222 
1a@ = 41841 420 = A142 T49 = 2AM16 
41 = 2794 42a = 2aSs2 T5a 46741 
120 = A7TO6 449 = GARR 76a qWa2 
13a = 2481 45a = S259 77a = 3252@a 
44a = 4Ake2 460 = 1528 TRA = 1449 
45 = A344 ATO = 14142 79a 4154 
46a = 1532 JRA 3274 RAA = 2947 
17a = 4156 43a = 22723 21D A584 
12a = 41212 Sa 43523 Rea 443 
AQA = 27R1 F41a 2127 R32a = 4728 
2ne = 4752 52a AS5aM2 24a 6625 
21a = S2a1 S20 = 142 RSQ 6AR4 
228 = 5494 54a = B2qqZ REA = 2ae5 
23a = A741 55a = 4ZRRa RTA = 2RQR 
248 4582 SEA = 757 RRA = 757 
258 6676 57a = Ska Raa = 3502 
26a = S561 Szxa = 2116 3aa = 6564 
27a = S198 3248 = 2k! 31a = 48914 
era = 21k!l 6e@a = DEA 32a = S508 
290 = 2833 619 = 2278 920 = 26323 
3208 = 1497 62a = 4674 AqQAaA = 4253 
310 = 4425 B2Aa = 292 asa = 422 
32a = 68@Q1 BAn = 2520 TOTAL = 270053 
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Snakepit 


CLASSIFICATION: Evasion 

You are one of two snakes placed in a pit, each trying to bite the 
other’s tail off. The other snake can be either the computer or 
another opponent. Biting your own tail, turning back on yourself 
and running into the wall are all fatal to you. Try to block the other 
snake's path so that he runs into your tail. Seven bites of the tail 
determine the winner of each game. It is not necessary to hold 
keys down or hold the joystick in a fixed position, as the snake will 
continue travelling in the last direction it was pointed. For player 1 
the keys to move up, left, right and down are W, A, S and Z. For 
player 2 they are |, J, K and M. 


PROGRAMMING SUGGESTIONS 


Give the opposing snake intelligence so that he can counteract 
your moves. Place obstacles on the board at random to make play 
more difficult. 


ee 


PROGRAM 


Variables 
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Color offset address 

Left joystick 

Right joystick 

Left joystick X direction increment 
Left snake Y direction increment 
Right snake X direction increment 
Right snake Y direction increment 
screen location of left snake 
screen location of right snake 
Number of players 

speed variable 

Left snake score 

Right snake score 


Listing 


1@ REM SNAKEPIT 

20 VOL &¢GOTQ 7R2@ 

20 REM GET DIRECTION 
Scan Both Joystick Ports and the Keyboard; Call Move 
Snake 

42 IF N=1THEN 60 

50 IF JLC>@THEN 13@ 

6A JL=JOWCA? 

7A JL=15-¢C JLAND15)D 

BA IF JL=Q@THEN 139 

ao IF JL=41THEN X41=@471=-14G60TO 292 


10a IF JL=2THEN ®1=O3V4=13GOTO 298 

414 IF JL=RTHEN X1=17V1=02GO0TQ 290 

120 IF JL=4THEN K1i=-13'71=@GOTO 290 
13a JL=AF IR=IOWVC2) 

140 JR=15-C JRAND15>) 

15a IF JR=@QTHEN 200 

160 IF JR=ATHEN X2=O3¥2=-12G0TQA 298 
17a IF JIR=2THEN X2=A2V2=193GOTOQ 290 

1zQ IF JR=RTHEN K2=1272=82GQTO 290 

13a IF JR=4THEN X2=-12¥2=A2GOTO 298 
2ao GETASSIF AS=""THEN 298 

21a IF AS="T "THEN K2=Q3¥2=-12GOQTO 2908 
228 IF AS="lJ ""THEN K1i=@2Vi=-13G0QTO 290 
23a IF AS=""M "THEN K2=@37Y2=145G60TO 290 
24a IF AS="2 “THEN X1=O02V1=13GQTO 290 
2A IF AS="K "*THEN X2=13¥2=A2GQTO 290 
26a IF AS="S ““THEN X1=1971=03GOTO 290 
27@ IF AS="J "THEN X2=-1372=@2GQTO 290 
220 IF AS="A "THEN X1=-1271=@2GQTO 290 


Plot the Player on Screen and Check for Collision 


238 REM PLQT PLAYER POSITION 

300 P1I=P1i4*K14CV1*4Q)SP=P13S=1>GQSUB 320 
314 IF S=@THEN 9234 

320 IF N=1THEN GOSUB 610 

32a P2=P24+K24* CVexegGdSP=P22S=27GOSUB 380 
34a IF S=QTHEN 939@ 

3598 POKE P1i,8i13PQKE P14#CO,2 

368 POKE P2,&873PQKE P2t4+ca,s 

378 FOR T=1 TO FRFtFREOSNEXTAGOTO 39 
3280 REM CHECK FOR HIT 

3908 IF PEEKCP)=32THEN RETURN 
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FOR 1=5 TQ 1 STEP -13COLOR4,1,353GOSUB 380 
POKE P,813FOQR T=1 TO 603NEXT 

POKE P,&813NEXKT 

IF S=i1THEN S2=S24+13S=08 

IF S=2THEN S1=S1i+19S=@ 

FOR T=1 TQ 20QSNEXT 

IF SACTANDS2C7THEN RETURN 


Print Out Who Won the Game and Prompt For Another 


REM WINNERS ROUTINE 

GOSUB T72O0SPRINT "SWB FPLAYWYER,A 17 2... HB 
Bi BL Bl Bl BI Bl BP BB) BPP PP PPP PLAYER. 2S awa 
PRINT "RY f§ ld ““SPCCABISASPCC240°"F] ""S2 

IF SACS2@THEN N=2esPRINT “'S} Ld FF’ 

IF S2CSiTHEN N=43PRINT “RY La fg 

PRINT "WH UW eee eee Bia WI NNE 
RR og. GS. ee. eR I tA, Ae eG 

PRINT N 

PRINT "WW © © WW BF BBL Bt BS BP BP BI BP BP BEAN OTHE 
RsaGANE?.ACYWeYFND* 

GET ASSIF AS=""¥ "THEN RUN 

IF ASCO™N ""THEN 550 

END 

REM SQUND 

FOR T=1 TQ 1A@2SOUND 2,15,2¢SOUND 1,30, 4¢NEXT 
RETURN 

REM COMPUTERS NOVE 

IF PEEKCP24#K24+V2%40)=32ANDRNDC.9C.835THEN RETURN 
KN=KESYN=HV22V2=0 

S2=1-CINTCRNDC.32830091F X2=QTHEN 640 
M=PEEKCP24*K24+V2H4Q 93 1F K=32THEN IF X2=A1THEN AS=""K " 
7RETURN 

IF X=32THEN IF X2@=-ATHEN AS="J_ "SRETURN 

%2=8 

VY2=1AFX=PEEKCP24*K24+V2R4OIF IF K=32THEN AS=H=""M “SF 
RETURN 

VW2=-A13 K=PEEKCP24+K2+V¥2R4qQ SIF KX=32THEN AS=""I ""S 
RETURM 

M2=KNEY2=7N 

RETURN 

COLOPS,11, 49 COLOQRO,4,5 


Draw Pit, Print Player Instructions and Enter Number of 
Players 


se 


re 


FOR 1=41 TQ 223PRINT "$8 9 2 a2 “SNEXRT 


[S aia S| 
a a» ~ a a a a a az he a a a. a a» a a a a az ? 


POKE 4831,16@ 
RETURN 

GOSUB 72a 
PRINT "BS BE BI BP BP PLAY ER,A1A’7 S.A KEW S aa 
eo FP Oh A ER ge * Bae KE eB 

PRINT "BP BP U P "SPCC9II"HW "SPCCATOST 

PRINT "BE BFL E F T "“SPCCTO"A “SPCCATI"S " 

PRINT "BE BIR I GH T "“SPCC60"S "SPCCATI"K " 

PRINT "BP BED QU N "“"SPCCTI"Z "“SPCCATO"NM 

PRINT "BBEPBEPJaQY STICK CPORT.ABOa aa 
IGS 7 bP -C KC PQ RY a A a 

PRINT "BI BPBPEN TER,AZANUMNBER,A 1A1.OR, 2 
a A, Re 

PRINT "BI BI BI BP BIB BP BP BPN UMNBER,AOF .AZPLA 
pee SU 5 = 

PRINT "RI BP RPT HE .zCONPUTER,AWILCL as. B 
Ew iP AW Ee Rw 2 

PRINT "RI OF BL BI BI BI BBP BPW HEN.AONL Wa. 1a. P 
LAYER,AAVATLABLE. ™ 

PRINT "BIBI RBPNUNMNBER,ZA OF ,ZPLAYWVYERS 


on. 
a’ 


PRINT "ld. @ ";4FOR T=1 TO 80¢NEXTSPOKE 30724+999,16 
a 

GETASSIF AS=""1 "QRAS=""2 ""THEN 9330 

PRINT "Nh w2 WE"; SFOR T=4 TO 8@SNEXTSGOTO 908 

N=VAL CAS) 

PRINT "HUW HOM UMMMooeUuUuUuUUuuUuNnuuuUudb 

WMMPHPENTER,ZA SP EED,A CAS FAS T «za a FD 
* SLOQOUD .,. ",56Q0TQ 978 

PRINT "Ig . @ ";3FOR T=1 TO 8Q@3NEXT 

PRINT “Sh . Wb "“;SFOQR T=1 TO 8Q9NEXT 

GETASSIF ASCA "“ARASD'S "THEN 350 

F=VALCAS)SGQSUBR 1144 

GOSUB T72O04¢PRINTI “BHiG Bl PLAYER. 1 «2 ow BB 

Bi BL Bl Bl Bl Bl Bl Bi Bl Br BP PP BPE PLAY E Rw et ow 


PRINT "RY FA lg "SPCCAMISASPCC24D"H "'S2 
REM SET RANDOM WALLS 
NW=EINTCRNDC.32349SPRINT “RY °°; 

IF MNLJH=FQTHEN 10908 

FOR I=4 TO NI 

FOR J=4 TQ RNDCC. 386943 

PRINT SNEXT 

PRINT SPCC CRNDC.5#294+899FOR K=1 TO RNDC. ¥1648% 
PRINT "ms Wo a “SZ SNEXT 

NEXT 

REM SET INITIAL POSITIONS 


q> 


110Q@ P1=31549P2=3189%X1=0¢ X2=O4 V1i=14 V2=12S=9 
1414Q@ IF N=2THEN 1120 

1120 REM 

113@ GaTO 15a 

114@ RETURN 


ChexSum Tables 


1@ = 4 3238 = 1117 770 = 442 
20 = RR2 4A = 2A26 TRA = 299 
3@ = a 41a 1431 TAA = 2002 
40 = F725 Fon = 53a gaa = 146@ 
=@ = 41054 4320 1727 Z1a = 16a4 
6a = 686 AAA 1729 Rea = 1719 
7A = A154 45a) = «a?74 R3a = 1619 
RA = 865 JER = A298 RAN = R196 
aA = 2348 47a = a Z5a = 2AT5S 
100 = PARB 4EOQ B236 R60 = 2Aaa4d 
41@ = 2128 44a A4A2 RTA 2652 
120 = 2350 5aa = 1492 SRA BACB 
13a = 4151 51a 14943 RIA 1854 
14a = 41169 52a 22AR SAA 2562 
ASA = 866 52a = 231 31a = 4919 
16@ = 23255 34a = £192 A280 = 2207 
17a = 219 3508 12623 aaa 654 
ARA = PAA? Sé6a = 4129 3408 = 43213 
420 = 23254 STA = 129 a5a = 1524 
2a = 4212 “80 = a 368 = 16840 
2108 = 2426 59a e414 qa7a = 419224 
2ek = 2435 baa 142 38a = 1aR4 
238 = 2231 61a = a 33a = R236 
Der = 2247 6208 = 2aA73 4QAA = 1482 
250 = 22232 63a = 14524 4AQA1A = A 
268 = 22e2d1 64a = 24236 4Q@2Q0O = 1576 
2Ta = 24an ASA 29415 14QA3Q@ = 9422 
2a = aS 66a = 2285 4AQQ = 766 
acl) = A 67a = R270 1@Q@5@ = ids? 
2AG = 2746 BRO 2666 4AQEA = 34> 
241A = 882 693A = 2kRSR 1A7TA = 2752 
220 = ALR 7aA AAGA {ARA = 424 
23a = 2752 710A = 1423 14Q320A = A 
24a = &A2 T20 = 411a9 141A = BAAR 
a fro = 4252 73a = 2724 1410 = &42 
36@ = 4254 748 = 1495 412A = A 
3768 = 22499 TSA = 2534 44320 = S26 
BEA = a 7TEa = FR4 41140 = 142 
TOTAL = AT9RR7 
182 


Break-In 


CLASSIFICATION: Co-ordination 

You are inside a four-walled container with a series of brick walls, a 
moving ball and a bat. The ball is bouncing off the bricks and you 
must use your bat to stop it getting past you and hitting the wall. 
You are given nine balls for each game and you lose a ball each 
time one gets past your bat. The bat can be moved left and right 
using the | and P keys. There are three different brick wall config- 
urations and two bat sizes. The smaller the bat, the more points 
scored. 


PROGRAMMING SUGGESTIONS 


Add more courts to the game so that the player has a greater 
choice of games. Make the ball change speed in midflight, i.e. 
accelerate or decelerate. 


183 


PROGRAM 


Variables 
SC Start address of screen 
CB Color offset value 
GM Game number 
BS Bat size 
GS Game score 
HS High score 
BV Vertical position of bat 
BH Horizontal position of bat 
BY Vertical position of ball 
BX Horizontal position of ball 
BA screen position of ball 
DX Horizontal movement value of ball 
DY Vertical movement value of ball 
SW Switch to allow screen refresh 


184 


Listing 


19 


2a 


REM BREAKIN 


Set Volume, Move Bat Left or Right: Check If Ball Hits 


Boundary 


eae Cm OU MUM CM OMG MOMOMOMOMOMCMOMOMOMOMOMOMOMCMO] 
Coe) By BBY et my By BY By Bs By BS PY oY BY BY Bi BY by BY ey Bs BY By OB 
Bim By By BY By ms mt By By ey by By Bn pe 

SC=3A72FNB=94G0TO 3230 

GOTQ 2a 

VOL S3SOUND 2,1,53RETURN 

REM MQVE BAT 

GETASS IF AS=""THEN A=64 

IF AS="T1 "*"THEN A=12 

IF AS="P “"THEN A=36 

IF A=64THEN 170 

PRINT LEFTSCONS, BVORIGHTSCDNS,BH);4FOR I=4 TO BS* 
PRINT “, ""5 NEXT 

BH=BH+tC CA=12)9-CA=36) 2 

IF BHC&8THEN BH=2 

IF BHD 28-BSTHEN BH=38-BS 

PRINT LEFTSCONS, BYVORIGHTSCDONS,BH);4FOR I=41 TQ BS* 
PRINT °‘g ™ "";*NEXT* 

REM CHECK BOUNDARY HIT 

BxX=BXt+DOXSBW=BY4*tDV*FF=Ha21 

TF BXCSTHEN DX=-DXSGOSUB SOsGOTQ 230 

IF BX>326THEN DX=-DX*GQSUB S@tGoTa 23a 

IF BYCATHEN BY=14DY=-DvY2GOSUB 5@*GQOTQ 230 

IF BY>23THEN BY=2342DY=-DvY2GOSUB 5a 

REM CHECK BAT /BRCK HIT & PRINT BALL 

POKE BA, 324 BA=SC4+RBY*404+BXN 

IF PEEKCBAD=120THEN BA=B14DY=-DY*FF=1334GOSUB Sas 
GOTQ 6@ 

IF PEEKCBAX=207THEN DY=-DY*4FF=354GOSUB 5O*GS=GS+t1*% 
PRINT "E} @ } "GS 

POKE BA, &4 

REM CHECK FOR MISSED BALL 

IF GMN=AANDBY>S>22ANDDY=—-14THEN NB=NB-4¢PRINT "SY 2) 8) 
OMOMOMOMCMOM MENT: 

IF GMCS AANDBY=12THEN NB=NB-41¢PRINT “SO Ow ww ww 
Woe NB 

IF NBCATHEN 1a9@ 

IF INTCGS /1@@)-CGS /1@@CDOOTHEN 60 

ON GMNGOSUB 830,900,999 


Draw Title Screen: Select the Game Number and Bat Size 


330 REM TITLE SCREEN 
348 COLOR4,3,6¢COLORO,3,62PRINT "WWW ww. ow ow ow 


e* 
7 ee ee a ee ee ee ee ee ee 


35a FOR T=i1 TQ AQQSNEXT 

36a PRINT "GY WWW 2) MW 2.2 aw aw wa wa mama eae eae ee wo we 
aco @©Op@eHe” 

278 FOR T=1i TQ AAQOSNEXT 

RRA PRINT "WWW WWW SM. aw aw we ee hh Oh Ohhh 
ao ®,w28pe?,.H3 OO" 

3298 FOR T=41 TQ 10OeSNEXT 

40a PRINT "LW WWW WWW. ow aw ew we me rr mo rae aia wae 
~2@0@He@e,.z28e?,. TOK e@” 

410 FOR T=1 TO AQQSNERT 

420 PRINT "wi OW OOOOH. 2. ew ee lll lll 
~28@,7908@,288,8302,fe" 

430 FOR T=1i TO AQQSNERT 

440 PRINT "hk. W) (te) (8) tf) 2) te) ) bw wk ltl rl lr ll 
~a28hlie2e.Fewnre.waete.wa ocebe”" 

450 FOR T=14 TQ AAASNEXT 

46a PRINT "we WW WWW Wwe. er er ll 
~a2o ®,.,  F@®@.w.wmewnme,wza tRteweee.wawuoe" 

47a FOR T=41 TQ 2QASNEXTSFFH353GQSUB 58 

480 PRINT "UU WHwU MMO WO OW. ew ew re 
~axa2BLH ew. emtewanseewezate,weatoe.woe ”" 

429 FOR T=1 TO 2QOSNEXT*FF=212GO0SUB 5a 

508 PRINT "OW WO WOOMMWMWNG . 2. aw ew oe ee ee 
~aoakh,a WR,za wd e@wa8 8, Fte,.,ete,zabhe”" 

510 FOR T=1 TO 2AMSNEXTSFFH354GOQSUB 5O@ 

320 PRINT "CW WOOO WOW. nw ke lt lll 
a~aoaB,aHR,ARBE z£8B@iwaeHe.weee.zahe"™ 

530 FOR T=1 TQ 2GAOASNEXTSFF=H=214GQSUB 50 

54a PRINT "OW WMO OO Ww. 2. ne ee 
a~aeah, RrR.ARME _gpepALAHe,.zAGCe#,.Oe” 

55a FOR T=1 TO 2QOOSNEXTSFFHS5etGOSUB 50 

S6a PRINT "NOW Ww MMWw WowWee. «2 aw aw ew ee we wee 
aa B,aAHWR,LAMAE z~gRBALARAKLAoe.LO®e® "™ 

57a FOR T=1 TO 2AASNEXTAFF=213GOSUB 5a 

380 PRINT "WwW OOM wW eww. ee lle 
~aao Bana hr, BEwzaseBALAARAKLAoE!L.Aaoe ™ 

S308 FOR T=1 TO 2C@QOSNEXTSFFHR35SGQSUB 5@ 

baa PRINT "ky (9 0) (9) 1) (2) 2) 9) 1) W) WG 2 2 aw wm a www we 
a~aa2aebahR.wiwaMmdEwzamseA.L. WK aAmBIAON "™ 

61a FOR T=41 TQ 2QOSNEXTSFFHLCASPRINT “I WY ” 

62a GOSUB Sa 

630 PRINT "ms 2 «2aoa.ooeoeeoaAWSEL_oEcCTt, GaANEy, 
NUMNBER CC 4- 3 )D SFOR T=4 TO SOSNEXRT 


640 PRINT ) @ &@ caw ae 2a =e SEL BOT ow GAME ~ 
NUMBER €14- 39 ";3FOQR T=1 TO SOSNEXT 

630 GETGMSSIF GMSC'1 ""THEN PRINT SPRINT * "";>GOTO 620 

668 IF GMss"3 ""THEN PRINT SPRINT ‘(9 ";2G6QTO 620 

670 GMN=H=VALCGMNSISPRINT "". "“GMEPRINT SFF=35 

6x@ GOSURB 5@ 

620 PRON) “@ «2 «2 2 2 ses @ @2 w a2 WS ELE € ta BAT « 
St 2E ¢ 2 - 32 3 "SFOR T=1 TQ FOSNEXRT 

TAA PRENT “OS 4- a ek awk ot ce ee SUE bE eT A RAT ~& 
SI2E¢ 2-3 39 ";3FOR T=1 TO 9OSNEXT 

7410 GETBSS TIF BSSC"2 “THEN PRINT SPRINT °T) ";¢GOTQ 6808 

T29 IF BSS>"3 “THEN PRINT PRINT "(C) ";5;3GOTO 68a 


Draw Court, Print Score, High Score, Bails Left and Game 


Number 


73a BS=VALCBSSOSPRINT "2 "BS 

740 NB=99G6S=10M%¢ 4-BS) 

75a FOR T=4 TQ S@QSNEXT 

760 PRENMT ks WM m. Gace ae, Gao aa aia a a as a a a ae we 
BRR, BE A ONG a sa ee Sa ae a vas SS eS eo es a 

77a POR TSa £0 2SSPRINT os 2a we ee ee oe Mo ws em & 


~e- ea a Ra wae ea ea ea eR ea ma eae ma meme ee eaaoaald”d 
eS NEXT 
TRA RE Oe a ae ae A ta rks SD se oe. a as ee ea ta ae as Ss ee 
~ ~ a» a a a a a» a» a a a a a s r a a a» RY as 
799 PRINT “BY S RE "SPRINT GSSPRINT ‘3 H I 
PRINT "S C E "SPRINT HSSPRINT "R] BAL 
ROA PRINT "LE “SPRINT NRSPRINT "t] GAME 
PRINT ""N U ER “SPRINT GM 
81a PRINT °"t] B "SPRINT "S I 2 E “SPRINT BS 
R20 ON GNGOTQ 838,900,998 


D 


P>as3anano 
“aA VAD 


Print Out the Courts for Games One, Two and Three 


&30 REM GAME 1 
240 PRINT "SHWM Wh 
&50 FOR J=41 TO 42PRINT "BRE UM HBP eae ereeeee 


FrFPrrPrPrrPrerrrrrrrrrerereereees 
NEXT 


R6@ IF GSD@THEN GS=GS+e4 

R78 IF SWD@THEN 6@ 

RRO SW=12 BV=212 BH=174 BY=15$ BX=184 BA=SC+BY#404BX4DX=-12D 
Y=-1 

83a GOTO 11a 

900 REM GAME2 

910 PRINT "SH WW (9 fa” 


187 


> fe 
bE 
DD 
9 9 


111@a 
4112@ 
1120 
114@ 
415a 


188 


FOR J=1 TO 3¢PRINT "MUP PMO e oO eoeoee 
Prerrrererrerrerererererererereeee se 
NEXT 

PRINT "HU MMMMNMNMNue” 

FOP J=41 TO 2¢PRINT "MMMM Meee Oe eee 
Prereerreererrerererererererererer eee 
NEST 

IF GSTS@THEN GS=G6S5+41 

IF SWOATHEN 6a 

SWIRLS BVH1329 BH=20% BY=10% BX=217 BA=SC+BYR404+BXSDX=13DY 


GoTo 14@ 

REM GAMER 

PRINT “El a" 

FOR T=@ TO &4PRINT "BD Of BL BD OB! BP Bt Bl beh 5; SFOR J=9 
-I TO 1 STEP -41SPRINT "I C2 3; 4NEXT 

PRINT SPCC1®248);4FOR J=9-I TO 4 STEP -4¢PRINT "TT" 
;2NEXTSPRINT SNEXTSPRINT 

FOR I1=@ TO S4PRINT “BE BL BD BD Bd BP BP bb) “SZ SFOR J=4 
TO I1+4SPRINT "I Go 5 SNEXT 

PRINT SPCC CCR-1)*29489;4FOR J=4 TO 1#1¢PRINT "(5% 

MEXTSPRINT SNeEMTSPRINT “Ey ” 

IF GSD@THEN GS=GS+4 

IF SLIO@THEN 6@ 

SlI=4¢BV=1234 BH=165 BY=942 BX=24% BA=SC+BY#404+BX4DX=13D¥ 
=-4 

GaTa 4114 


Check for Another Game 


REM END GAME 

PRINT "HW OW WOW wo owen ee ee 
BPP. aw ew wa ANOTHER,ZA GAME CYYND* 
GETAS 

IF AS="N “THEN FRINT "ky “SEND 

IF ASCS"Y "THEN 11108 

IF GSD>HSTHEN HS=GS 

SLI=AaSGATA BAA 


ChexSum Tables 


1a = a JAD = 2837 73a = “3aaa 
2a 27Aa9 410 = Q75 RAB = 2957 
38a 1693 42?0 = 2147 24a = A148 
4A = A472 42a = 375 Z2Q 1282 
a = 1420 44a = 2941 R30 = a 
A) = a 450 = a75 RA = B17 
7a 1424 460 = 4732 5a R437 
Za = 4139 ATA = 4824 REQ = 1442 
a8 eo ee 420 = 2945 RTA = R24 
1Aa a #34 49a = AR417 RLQ = S699 
110 = 32218 SAa = 22416 RAQ = 526 
12a = 2108 S10 = 4824 QIAn = a 
4139 1979 S20 = 2676 91a = 317 
14a = SS S32ea = 48417 92a = 84328 
ABe = 3 36Aa4 542 = R522 93a = 524 
16a = a S50 = 41824 340 = R428 
17a = 2294 56a = 23296 95a = 1448 
120 = 23236 57a 1847 q6a R24 
13a = 23272 SEA = R252 a7ea = S500 
ZA = eoxg4 53a = AR21 ARA = 526 
218 2332 BAA = 3232 qan = a 
228 = a 61a = (eas 49e@a 2G 
2320 = 2OAR 62a 247 491A = 2R2nM2 
240 = 3829 62a = 2625 4Q@20 = 39414 
2508 = 4413 4A = 2827 14Q@32@ = 23397 
268 = 444 65a = 2596 4Q@4Q@ = 4142 
27a = Qa 66a = 2Ae3 1495@ = 1448 
2a = ATR 678 = 2ATeS 14AEA = RP 
2aen = RRA? 6Bka = 247 4aA7TA = S462 
32Ane 913 Bae = 22394 4AasAa = S2E 
210 = 24AA 7aa = 3592 yoap Oe a 
328 = {A556 71a = 261a 1100 = P7226 
230 = A 728 = p4oe 4440 = >E7 
24A = eRiAe2 73a = 1325 1120 ee 4254 
228 = 375 748 = 1644 141420 = 441489 
26a = 23237 75a = a5 114M = 14328 
278 = Jt5 vEQ = 2993 4150 10415 
280 = 24935 a = 2324 TOTAL = 248323 
2aA = Q75 TRA = 2264 
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Minotaur 


RB 


LEP dan Phew FE PER Pe 
Past 
Grojad 


~ 
+. ye Pe, ~ 
* RRO ned t- 


SSD EK ne} 


PE PEPE ESS be IP ition 
CPPS ME EB OOS 
Koger Die Gena Boe &, 


P30 Sa SAPAPAQIR BW DSN fy on 
$56. 


SRG RLS SON PA Ras 


BSR Be IEE HW 42 
Le) Erion GID AF TU LAE be BRED 


Gabe £m BRST K OR Ons 
BR apes Le he NS Bea KE SESE KH poo 
PORDAS B IOS Le OB SAD 
SILA on} HAO LO ID Ba RS 
Ser RR da CORI nite ao LE 
MR BB MNGi OMNI 
SERIAL IH on} KAU Ge 
WORD Lani 8 DE IT 
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e 
. 
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ieee 
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CLASSIFICATION: Educational 

You are placed at the bottom centre of a matrix of numbers and 
symbols which you can move through by pressing keys as follows: 
W-up, X-down, A-left, D-right, Q-up left, E-up right, Z-down left and 
C-down right. It is easy to remember the keys because they forma 
diamond round the S key and each key points in the correct 
direction with reference to the S key. Your objective is to guess an 
integer (a whole number) in the range of @ to 1990. You can get 
clues by moving over the X squares but in the least number of 
moves. Each number you move over is added to your score. If the 
number is too large, you are pursued by a minotaur which Is placed 
in the centre of the screen at the start of each game, and which 
gradually creeps closer as you play. If he catches you, the game 
ends and you lose. When you think you have the number, move to 
the white block at the top of the matrix. 


TO] 


PROGRAMMING SUGGESTIONS 


Make the board multilevel, and give the player and minotaur the 
ability to travel from level to level by landing on an appropriate spot. 


PROGRAM 
Variables 


LD% 
R% 
SN% 


D1%, D2%, 


Level of difficulty 
Round 
Secret number 


D3% Digits of a secret number (SN%) 
PP% Players’ position 
M% Minotaur position 
LS% Last score 
TS% Total score 
CU Character under minotaur 
NC% Number of clues 
Lee} Truth array for clues 
MR%, MC  +=Minotaur row, colour 


PR%, PC% 


Player's row, colour 


Listing 


19 REM MINATALIR 
Set Screen Colours; Input the Difficulty Level; Print Board 
2a PRINT "ky "";4COLOR4,9, 4¢COLORQG,7,52PRINT TABC10);""s 
MINQATAUR,ZAMNASTER-MIND "8 
2A PRINT *PRINT 4PRINT 
40 PRINT *PPINT "L EVEL.OF,zODIF FICULT YY 
OG: Ay. oe al Se 
5a GETXSSIF XS=""THEN 5@ 
6a IF VAL CXS) CAQRVALCXSID3THEN 5@ 
7a LD“=VAL CXS SPRINT LD*% 
ZO FAR T=41 TO 1Q@Q2NEXT 
an GOTO 250 


10@ FOR [T=3272 TQ 2823 STEP 40 

110 FOR J=@ TO 37 

120 KA=INTCPNDC@)#12)5 

4368 IF KASS3THEN 160 

14a POKE I#J1,K1i#42 

150 GATOQ 22a 

160 IF KACCA@THEN 19a 

17@a POKE I+4+J,24 

120 BATA 22a 

12a IF KACT1A4THEN 21418 

2ae POKE 14J,633GOTQ 220 

4 POKE I+3,42 

22a NEXT SNENT 

23a POKE 3292,16@ 

24a RETURN 

25a RPM=ALSSN“=INTCRNDCAI*IGA94LD 

26a DAX=INT CSN» “10@9SD2%=INT CCSN%-D1%100) /1093D03%=SN™% 
—-DA‘sMAAA-D2“1A 

2TA PRINT "ky "";SCQLOR4, 4, 37COLOR®,7,52GOSUB 100 

2eA PPM=2R523INM=2597221F PEEKCS852>9>48THEN LS“=PEEKC3&52 
Y-4R 

2eaA IF PEEKC3852>9=630RPEEKC3852)9=420RPEEKC3852)9=24 
THEN LS“=fSPOKE 3852,48 

2aa TSH=ETS“Y4ELS“SCUH=PEEKC3S5S72°9°PQKE 3572,13SPOKE 3292,16 
a 


Print Difficulty Level, Score and Total Score; Scan 


Keyboard 


3108 PRINT "Rig ROUND, # ";[R%;5"IF Lb EVEL, OF g, 
OD TF Fos a 3 Lae ST TABCSOOS" I FLAY Ee CR AQ tS 
320 FOR T=1 TO 24ASPRINT SNEXTSPRINT ‘fy 


a ! QO AL 
COR E22 "Sten sL Abel oe if. SF: ao Se. E 


T 
R 


3308 C=@A7Q=141 

348 GETXSSC=C+1 

358 IF C=7THEN Q=1-Q3C=0@ 
368 IF @CSA@ATHEN 3223€@ 


278A IF PEEK CPP’ IS632THEN POKE PP%,PEEKCPP%)-1284Q=1% 
GOTQ 39a 
220 POKE PP’,PEEKCPP%.4#122¢Q=14 


398 IF MS=""THEN 349 


490 GOSUR 1940¢1F PEEKCPP%)2>64THEN POKE PP%,PEEKCPP%) 
~122 

410 IF ¥$="L1 “THEN 548 

420A IF ¥$="A “THEM 55a 

420 IF ¥$="D “THEN 59a 

440 IF X$="% “THEN 62a 

45a IF ¥$="E "THEN 670 

460 IF ¥$="Q "THEN 710 

47a IF X$="Z “THEN 750 

420 IF X$="C “THEN 790 

43a IF ¥$="T “THEN 82@ 

sae GoOTa 24a 

510 IF PEEKCPP%-48)=32THEN 340 

S2Q@ LS“=PEEKCPP%)-43 

S2A POKE PP%,22¢PP%=PP%-4a 

S48 GoTo gsa 

550 IF PEEKCPP™%-1)>=R22THEN 34a 

560 LS%=PEEKCPP%)-42 

S7Q PQKE PP%,22¢PP%=PP%-4 

Sza GoTa gsa 

S30 IF PEEKCPP%41)=32THEN 340 

69GB LSX=PEEKCPP%)-42 

618 POKE PP%,322¢PPX%=PP%+4 

62@ GoTo asa 

62a IF PEEKCPP2+448)=232THEN 340 

640 LSu=FEEK CPR %)-48 

6SQ POKE PP%, 22¢PP%=PP%4+40 

666A GoTo s5@ 

67a IF PEEKCPP%-39)=32THEN 340 

620 LS“=PEEKCFR%)-42 

69@ POKE PPX, 322¢PP%=PP%-39 

7AM GBATO Rea 

7410 IF PEEKCPP%-441>=32THEN 340 

T2Q LS“%=PEEKCPP%)-42 

TAA FOKE PRP, 223PP%=PP%-4141 

742 GOTO R5a 

7T5@ IF PEEKCPP%4293)=32THEN 340 

7T6Q LSM%=FEEKCPR'2-48 

7T7Q POKE PP%,32¢PP%=PP%439 

72Q@ GOTO R5ea 

798 IF PEEKCPPX441)=32THEN 2428 

FAQ LSX=SPEEKCPP%)-4R 

21Q@ POQKE PP%,322¢PP%=PP%4+41 


194 


re 


101@ 


1@2@a 


1a3a 
194@a 
1A58 


1@6@ 
Aav7ea 
1ARA 
{aga 
110@ 
4114 


1120 


4130 


1148 


115@ 
116@ 
117@a 
4128 
419@ 


GATQ &5a 

PRY=INTCCOPP%-3072) “400 SPCZ=PP%-PR“RAB- 30729 
GOSUB 1A59Q41F PP’CSM“THEN 820 

GOTO 177a 

PRY=INTCCPP%-3072) /4@) $PC%=PP%-PRKM4D-3072 
KA=PEEKCPPYISIF KI=63THEN GOSUB 9598 

IF FR%=feTHEN 1778 

IF Ki1i=24THEN GOSUB 3704 

IF Ki=42THEN GOSUB 1440 

IF KA=A6QTHEN 149498 

KA=PEEKCPP%2-4241F LS“%#tK1>=1@-LDZ“%THEN GOSUB 1598 
TSM=TS“4#KASGOSUB 126@ 

IF PPM=MNMTHEN 177@ 

GATQ 23a 

IT=INTCRNDCA2*1QIDFPQOKE PP“, 1448 

PETURM 

POKE PP, 48 

IF NCx>=ASTHEN GOTO 1430 
K2=INTCRNDCOI*941I91F TxCK22=1THEN 990 
TYCK2I=ASNCH=ENCK 4A 


At Random, Print a Clue at the Top of the Screen 


ON K2GQOQTO 1020,1050,1096,1130,11780,12180,1260,1290,1 
3240 

GOSUB AR89@4PRINT "SUN, QF ,ODIGITS,AOF « 
SECRET “SPRINT TABC9II;"N UNBER.AE QUA 

BS ae 

PRINT D1ix4Dex4D3% 

GOSUB 1A91@2RETURN 

GOSUB A89@4PRINT "S ECRETAZANUNMNBER,AI Sa 


ea. 
* 


IF SN™% “2=INTCSN% /29THEN PRINT "E V E N "3GOTO 1026 
PRINT "Q 0 D ”™ 

PRINT SGOSURB A91@SRETURN 

K=INTCRNDC19®20094SN%3 JI=K-2OOSIF JCOTHEN J=0 

IF K>A@@ATHEN K=100@ 

GOSUB AR9@SPRINT "N UMNBERAIS.,.BET WEEN 
“SISPRINY TABRCSI4 “A N DSK 

GOSUB 191@2RETURN 

GOSUB 1289@4PRINT "N UNBER,A I Sa"; 

IF SN“ /“S=INTCSN%“%/S.THEN PRINT "D I VIS I BL E "9 
GOTOQ 11608 

PRINT "MN QT, DIVIStI BLE” 

PRINT TABC99;"B ¥Y , 5 "SGOSUB 191402 RETURN 

L=DA%S1F D2“sSL THEN L=De% 

IF OD32%>LTHEN L=D3% 

GOSUB ARAMSPRINT "LARGEST, DIGITa,ATI Na 


19S 


120a 
12108 


THE “SPRINT TABC99;"S ECRET,ANUNMBER, 


| ee ae a 

GOSUB 191@ RETURN 

GOSUBR 189@FPRINT "F I RST,.ODIGIT.,.tIN.ATH 
E.SECRE T "SPRINT TABC9D;"°N UNBER,I S 


ee. 
~ a 


IF DA“SSTHEN PRINT "L AR GER,ATHAN, 5S "9 
GOTQ 1250 

IF DA“CSTHEN PRINT "LES S,.THAN, 5 "SGOTO 12 
al 4) 

PRINT "E QUAL,ATQ,.35" 

GOSUB 1A91@ RETURN 

GOSUB AR9A@SPRINT "S UM, OF ,.FIRSTAZAAN Da 
TH IRD “SPRINT TABC99;"D I GITS.azAtI SS. "; 
PRINT D1ix%4D3% 

GOSUB 19102RETURN 

GOSUB AR9@SPRINT "Q NE.wAOQOF,. THE, DIGITS 
2a I N«zTHE “SPRINT TABCSI;"S ECRE TANUMNM 
BER. a ob Sy ae 

K=INTCRANDC158®3991F K=QANDSNZOSSTHEN PRINT Dix? 

GOTQ 1330 

IF K=1ANDSNZSSTHEN PRINT D2x%2GOTO 1330 

PRINT D3x 

GOSUB 19102RETURN 

GOSUB A8903PRINT "PR ODUCT.AO-PF, THE,.N O 
N - 2 E R Q "SPRINT TABCS99;"D I GITtTS,t!tI SS “; 
IF DA“=QANDD2%=QTHEN PRINT D3%2GOTO 1420 

IF DA“=BANDDSZ“%=QTHEN PRINT D2xeGOTO 1428 

IF DPAX=OTHEN PRINT D2x*D3%2GOTO 1420 

IF De“=QANDD3%=OTHEN PRINT D1AxeGOTQ 1420 

IF D2“=@THEN PRINT D1%*D2%2GOTO 1420 

IF D3%=QTHEN PRINT DAx%*D2x%2G0TO 1420 

PRINT D1Ax%*®D2uRD3% 

GOSUB 1910 3RETURN 

GATQ 1020 

POKE FP, 48 

IF TS*#CAATHEN RETURN 

I=INTCRNDOCOI#100 03 1F ISSQ@THEN TS%=TS%-10S¢RETURN 

IF ICA@THEN TS4“%=TS%+4+50SRETURN 

TS4=TS%4+103RETURN 


Input the Secret Number; If Wrong, Then Give Player Clue 


GOSUB AR9@SPRINT "GUESS .AZAAT,ATHE,A SECR 
ET.ANUMBE R "SPRINT TABCS); 

INPUT "A NDB.w.AHIT.2ZWRE TURN ® ";KS 
I=VALCKS93IF IT=SNXTHEN 1778 

GAM=INT CI /1Q@Q@)2G24%=INTCCI-G1%100) 41993 G3%=1-G1%10 
Q-G2x%1A 


4530 PRINT " “SPRINT SIF D1Ax%=G4A%THEN PRINT "F I RST a 
DIGIT, CQaQRREC T "SPRINT 

A540 IF D2%=G2“%THEN PRINT "S ECONOD,ZAODIGIT,CAQ 
RREC T "SPRINT 

14550 IF D2%=G32*%THEN PRINT "T HI RDB.AODIGIT.zACOR 
RE. £5 os 

A56Q IF DAxvCS>GA“ANDD2%C5G2%ANDD32%¢>G3%THEN PRINT "N O 4 
D Tr°G I T'S 24 -€ OR R E Cy ™ 

A457Q@ FOR T=1 TQ 20003NERT 

A5S8Q@ R%x=HR%4+12GQTO 270 

4590 MRY=INTCCM%-1024) /4092MC%=IZ%-MR“AE4O-3072 

16@0 IF MCXCS>PCZTHEN 1638 

416190 IF MRYZDPR“THEN MR“%=MRZ%-13GOTO 1700 

162a = PIR“AF1ISGOTA 1768 

4630 IF MRXCSPRYXTHEN 1660 

464Q@ IF MCZXD>PCXTHEN MCx%=MC%-12G60TO 1708 

4650 MmMex=MCx+14¢GOTO 1700 

4660 IF Mx>PPXTHEN 16980 

4670 IF MC“CPCXTHEN MC%=MCx%*1SGOTO 1780 

A62Q MCx=MC%-ASGOTO 1780 

4690 MRx“=MR“-1 

A7TOAQ K=3BAT24+4O0*MR“EMCHEIF PEEKCK)=16QTHEN RETURN 

A71@ POKE fM,CUCIF CUH=632THEN GOTO 1748 

4720 IF CUDS=48THEN GOTO 17428 

A730 IF CUH=24THEN GOTO 1748 

A7T4Q@ M*%=K>CU=PEEK CIM) 

A475Q@ POKE %,13 

A476Q@ RETURN 

A7T7Q@ PRINT “We “";S1F M%=PP“%THEN 181@ 


Print the Score and Who Won, You or Minotaur; Print Magic 


Number 


47280 FOR [=14 TO 184PRINT “2 2 2 CONGRATULAT I 
ONS !,z.aw2z2CONGRATULATIONS! "8 
NEXTS PRINT 

4799 PRINT "WOU,A,HAVE.ADEFEAT 
MINOTAUR! ! “SPRINT "¥Y OUR 
1: Sg eS 

12800 PRINT "I Nw "“;R%s". RQUNOD S "SGOTO 1838 

4810 FOR [=1 TO 184PRINT "MB aw a MINOTAUR,AWI 
NS !,..,..2,2a2MINOTAUR.AWNINS ! “SNEXTS 
PRINT 

482@ PRINT "THE,zSECRETANUNBER.AWAS a4 
"5 SNX 

4230 PRINT *PRINT "HI T2ZAANY.AZAKEYW,.AFORAANO 
THER,AGANE"™ 

1424Q GETXSSIF XS=""THEN 1849 

125@ RUN 


E E 
a E - 


D «TH 
S$ C OR 


1OZ 


ARE 


LD 
hs] 
>) 


‘D Ww 
Ul 
er) 


ID 
-] 
gS 


PRINT CHRSC139;CHRSC1459;". TOTA 
Ame ee a a ae “FT ABC 21 SVL OA ST 


ee. 
a ma » od 


PRINT CHRSC13);CHRSC1459;", T 
“;TS“;TABC219;"°L AST, SCORE 
RETURN 

PRINT CHRSC4139;3FOQR I=41 TO 214¢PRINT 
NEXTSPRINT "Ry "5 

PRINT TARC9);4RETURN 

FOR I=1 TO 183PRINT CHRSC417)9;2¢NEXT 
PRINT TABC3S59;" mM "5 

RETURN 

FOR [=3160 TQ 3186¢POKE 1,32¢NEXT 
FOR T=220@ TQ 32226¢PQKE 1, 32¢NEXT 
RETURN 


ame ae Be 
as €-O 


0 
R 


RE 
E 


L-« S € QO RE 


gare Boyar. 


CHRS$C145);3 


KI=INTCRNDCOI*1402PRINT K1i,¢GOTO 1970 


ChexSum Tables 


= a 318 = 4779 
= 4624 220 = 49412 
= S25 22m = 62a 
= 2229 242 = aaa 
= 4496 25a = 4587 
4953 26a A741 
1204 278 = 35144 
1032 22a = 16382 
526 392 = R72 

=. 4942 4aa = 2944 
7a9a 410 = 369 

= 1207 420 - 457 
= B4z 420 = a52 
= 943 440 = A7z 
S27 AzO = a59 
1@R9 46a = q74 

a 629 470 = AR2 
= S27 420 = qas5 
= 41094 432 = 964 
= 41246 saa = 525 
= 29 S40 = 41574 
= 220 52a = 44124 
= 529 530 = 1506 
= 142 S40 524 
= 2A62 ssa = 4542 
= S522 S6a =) 444 
= 1927 S7a = 4452 
= 3734 520 - 534 
= 4246 saa = 4543 
= 3292 BAB = 44e4 


BY) 

iS nes 

OQ) Xm 
tw hh 


a 


4 


a 


14270 = 656 1630 = 13247 
428A = S62 14640 = 24Aa5 
142308 = S167 4650 = 1447 
13200 = 2577 4660 = 10614 
4143190 = 2268 A670 = 247 
43220 = BAA A68QM = 1448 
14320 = 562 1690 = Ria 
43240 = 4265 A7TAA = 2RGR 
1250 = 2330 ATIA = 1928 
4260 = 2329 4720 = 1574 
4370 = 2066 A720 = 1270 
143280 = 2328 474M = 1195 
13298 = 2067 A750 = 424 
190@Q@ = 26066 A760 = 142 
144140 = 10809 A770 = 1569 
1920 = S62 472Q = 4920 
19390 = S27 A479Q = 4976 
1440 = 5415 420A = 2036 
4450 = 956 42849 = 4652 
4460 = 2178 4820 = 2254 
1470 = 1812 48320 = 27412 
442Q@ = 1086 AR4Q = 13274 
4490 = 3464 4850 = 139 
A45S@a@ = 1679 4860 = 4669 
4510 = 1723 427Q@ = 4697 
4520 = 58290 14220 = 143 
4520 = 3812 428990 = 2969 
45940 = 3822 199M = BRR 
ASSQA = 2710 491M = 1619 
4560 = 4953 4920 6= ROR 
4570 = 1034 19320 = 142 
4520 = 1274 194M = 1682 
4590 = 23414 4950 = 1683 
46@Q@ = 1316 14960 = 143 
4610 = 2469 497 = 2328 
1620: = D107 TOTAL = 346232 
199 
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Star Trader 


CLASSIFICATION: Strategy 

You are the pilot of an interstellar merchant vessel. Using all of 
your charm and Intelligence, you secure a loan from the Solar 
Interstellar Bank (Sol branch) to purchase a second-hand 
merchant ship. With the little cash left over, you decide to enter the 
hazardous world of interstellar speculation. Use your cash to 
purchase various items at cheap prices, then travel to worlds 
where the demand for these items is great and sell them at a profit. 
You must repay the bank your massive loan or risk repossession. 
Beware of pirates and space storms. Full instructions are 
contained within the game. May you make a gigabuck or two! 


PROGRAMMING SUGGESTIONS 


Limit the supply of goods available on each planet. Introduce 
random patrols searching for gems, drugs or uranium among the 
inner worlds. Add random events such as black holes, or robbers 
who attack you and try to steal your cash. 


201 


PROGRAM 


Variables 
S$ Ship name 
GD Goods in warehouse and ship 
TP Trade prices: 
T$ Trade items 
CC Cargo capacity 
S$ Ship size 
LP Laser pods 
MS Missiles 
DF Deflectors 
P% Planetary data 
PL$ Planetary names 
CS Cash 
CR Bank balance 
DM Damage to ship 
DR Current real damage 
Pr Pirate fleet 
SN Number of pirates in fleet 
SD Star data 
L Current planetary system 


important Note 


Star Trader is such a large program that it leaves no room for 
ChexSum to be merged with it. 


You must therefore type in Star Trader in two sections, run 
ChexSum on each half in turn, then merge the two halves: 
1 Enter lines 19 to 144@ of the first half of Star Trader which 
follow. 
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Listing 


10 


20 


30 
40 


pea) 


60 


70 


80 
90 
10a 


110 
120 


130 
140 
1590 


160 
178 
130 
190 
200 


210 
220 


230 


240 
250 


260 


278 


Initialise Game Variables 


NS=", Boa mane nee einanueaerere aaa STARA TRA 
DER "3SS="B OL T,ABIN, 4, "4V0L 8 

PRINT "ms “SZ NSSPRINT "TY 2 wa wa wa ea eam mew nanan P 
L. £.A S EB a WA TD Tw. & aw ™ 

RCS=""Bi BI OS BI Bl Bi BS BS BS Bl Bl Bi Bl Bl Bl Bl Bi Bi ee 


—~— 88 


en 
aH *» a ~~ & a a» a a > hb a a A a a 


CYs=" HW UNUHUUHUEe MY eee “slsa"e = Se ee 
sms Ss Sere eBeeseeee "sC0s"WCHeUNUNUwuuUuuUue wu 


— bbe ee oo oe ooee ed wee ed oe oe oooe TL ad CL ad oo oe ae we woos eos 
“ ence oe ee ee te ee ew oe oooe = on oe oo we 0e = te we oe oe aves oo ne oe ve 


Sons a ee ee se 
LP=O2MS=02DF=OSDIMWUKC9, 1) SDI TPC9,62SDIMPL$(994SS=190 
O7>L=0 

DITMPFCS, 393DINGDCS, 13 SDIMNTPCS8) 

DEF FNXCDOD=INT CRNDOCO)#D#8—D33 D 
DEFFNDSCD)=INTCSQRCABSCPCD,05-PCL,O)>#24+ABSCPCD,4) 
~PCL, 1) 3° ¢2+ABSCPCD,2)-PCL,2)>¢2)99 

RESTORE 

DATASIRIUS, PROCYON, WESEN, ALTAIR, DENEB, DUBHE, VEGA,CA 
PELLA, CASTOR, POLLUX, ANTARES 

DATAZOSIMA, RIGEL, fEGREZ, MINTAKA, SAIPH, KOCHAB, PHAEDA 
DATAETAMIN, ERIDANE, WOLF, HAMAL ,ARI ADNE 

FOR I=41 TO SSIF RNDCOIC.333THEN READPLSCIDSREADDS? 
GOTO 12@ 

IF RNDCOIC.333THEN READDSSREADPLSCIOSGOTO 180 
READDSSREADPLSCI) 
PCI,Q.=FNXCIISPCI,L9=FNXCIOSPCI,29=FNXCID 
PCI,3)=91-101 INT CRNDCO0)#15)¢4INTCRNDCO)#15>) 

PCI, 49=21-281-INTCRNDCOIM3BISPCI,SI=INTC2000/CPCI,3) 
*MPCI, 4994419 

PCI,6)=FNDSCI) 

NEXTISPLSCOI="S OL “SPCO,37=1104INT CRNDCOI#20595PCO 
242=209PC0,57=1 

DIMTSCSIIFTSCOO="E OS F OOD, a a a “STSCLAIRNE 1 
> MTETALS go" 


TSC60="5 6 5 GEMS «a2 aia ae ™ 

TSC290=" 25 WE A PON Sg] "“STSCBIRN"E 3S CY BO 
RGS,.,”" 

TSCOQIR""E 45 URANIUM, “"STSCSIRN"E 5S > DR UG 


Se ee ae 


TSCTI=A"E TF 
LOR Sa 


FUEL ow ow ow “STSCBINHE SS REPA 


4> 
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COLORO, 2>COLOR4G,2 


PRINT "GU 2. «2 wa mama aWNdELcone.zaToasSsTaArR 


~aTRADERS! * 


INPUT "LB] . 2 aw aw wa wa OENTERANANEJAZOFPF LAY 


OUR.~SHI P ";S$¢PRINT "Ke 


GDC7, 12 =104CS=58004CR=-5000¢ SD=S5+ INT CRNDCO9*200) “10 


O*GOSUB 2200$GOSUB 6903B=2eCS+t500 


Get Player's Command and Help Table 


GETASSIF AS="""THEN 320 

IF AS=""0 “THEN 530 

IF AS=""I "THEN GOSUB 6903GOTO 320 
IF AS="T1 “THEN GOSUB &STOSGOTO 320 
IF AS="J “THEN GOSUB 939073GOTO 3290 


IF AS="B “ANDL=Q@ANDBOO@THEN GOSUB 24002GOTO 320 
IF AS=""D ""ANDL=OANDCSSOTHEN GOSUB 249803GOTO 320 


IF AS="T ""THEN GOSUB 12703GOTO 320 

IF AS=""U "ANDL=Q@THEN GOSUB S7@SGOTO 320 
IF AS="L "ANDL=OTHEN GOSUB 6307GOTO 3290 
IF ASCCASI=L13THEN 320 


PRINT NSH Ww. ow ww wwe we ww a VAL TIT DO 
OM as 


OHMNTRAN DS Z~AARE ga F “SPRINT “BE 2 
ARGO,AANOD,A SHI P,A STATUS " 
PRINT "i]} 2 7 J *7 gwaa— HvPeER,A JUMP a 
T "SPRINT "2 *7 T % wa TRADE AZATAB 
PRINT "i 2 7 717.2 aSYSTENMNALI BR 
PRINT "IJ 2 7 Q %7 zo TO,ARKUIT,A GAN 
PRINT “Wd .2 7 U *% ~.2UNLOA a SHI P 
WAR EH OUS€E " 

PRINT "WW 2 7 L *7 ~ati QAD, SHIP«, F 


WAREHOUSE" 

PRINT "WM 2° B%’.~zaeaBBORROAWNWN,ACASH 
mMmt.PBAN K " 

PRINT "I 2.2 7D” gz, DEPOSI TACAS 
~aBANK " 

GETASSIF AS=""THEN 510 

GOTO 3290 

PRINT "WWW .2a2 «2@QuttwtTtinG 
Ot a SOU ORE ee POG 


«> 
> 

»D 
a 


Quitting, Loading and Unloading, Inventory 


GETASSIF AS="""THEN 540 
IF AS="V “THEN 23860 
GOSUR 69302GOTO 320 


IN=-A151S=""SPRINT “YY "Z;CWS;5NLS 

PRINT CYS$,;°'% . UNLOADING, “"; 

GOSUB 16203I1F INS6THEN SOUND 1,200,52GOTO 590 
PRINT RIGHTSCTSCIND, 89;3INPUT NeIF INTCNDS>GOCIN, 1) 
ORNC@THEN SOUND 1,200,5%GOTO 578 

GDCIN, O23 =GDCIN, OF+INTCNISGDCIN, 19=GDCIN, 19-INTCND 
PRINT CYS;NLSSGOSUB 23603GOSUB 8502RETURN 
IN=-1S1$=""SPRINT CYS;NLS 

PRINT Cw$;°™ . LOADING, “; 

GOSUB 16203I1F INS6THEN SOUND 1,200,52GOTO 650 
PRINT RIGHTSCTSCIND,89;3INPUT NSIF INTCNDISGDCIN, OD 
ORN<C@THEN SOUND 1,200,53GOTO 630 

GDCIN, 19=GDCIN, 19+INTCNISGDCIN, O)=GDCIN, O@O-INTCND 
PRINT CYS;NLS2GOSUB 23602GOSUB S50;RETURN 

PRINT NSSPRINT "Se “ZLS5N) Se "ZLS5"N: °°; 

PRINT "SE 2 2W AREHOQUSE,A C SOL J) «a Hh lia 


: se. 
a a » & a» a» a a a » a a» a a» a a a 4 a 


PRINT "SW BM BE BE 'ZRCS;S$ 

PRINT “bh ";LS,"4 b "GLS5"4 "5 

FOR I1=@ TO GSPRINT TSCIIS 2 a ww ee ek eh MZ TSC) 
te: ae ay uae at a, Oe a cd NET 

PRINT “mS "ZLS;": OS "ZL$;': "SPRINT “Www” 

GOSUB 236@3GOSUB 8403GOSUB 24607GOSUB 3859 

PRINT CYS," WG WG mw. aw aw aw ao mo oa SHIT P,AOdDA 
TOR aw FPF BOR: «@ "SSS 

PRINT ") fF 2 «2 TONNAGE qa 2K "5 SPRINT 
USING'#H # # # # # # °''°5S5S; 

PRINT "HO 2 2 aDANAGE ,« «24 aa BZ SPRINT 
USING'’# # # # # °"';DM 

PRINT "CS BBE BL BF Bf By BI By By By By BS) Bi By Bd By BY BL By Bs By 
BEF UEL .«~ waza on FG SPRINT USING'T#H # # # # . # °°"; 
GOcT, 1) 

PRINT SPRINT "I 2 a2 tl ASER,A PODS, 2.K "i$ 
PRINT USING''# # # # # ";LP; 

PRINT “3G 2 «2 «2 OE F LEC TORS KH ";53PRINT 
USING'’#H # # # # °°; DF 

PRINT "fo 20 a2 TTI SSI LES gz. BH 5 SPRINT USING''# 
# # # # # # "SMS; 

RETURN 

PRINT CWS;,°%) «2 «2 "“SPLSCLIZ". STAR DAT Eg. “53 
PRINT USING'# # # # # . # # ";SD; RETURN 

CC=SSSFQR 1=8 TO 6SCC=CC-GDCI,1AIFNEXTSCC=CC-INTCGDC 
7,12)-10%CLP#DF )D-f1S 

PRINT CYS/OOU UNUM w 
- — 'ZSPRINT USING'#H # # # # 
PRINT NSSPRINT SPRINT "S ¥Y S 
aaolECH. gzgaoaoaoaoa AGR 
PRINT 


CARGO, CAP 


Pi igre A PA ah = ae ak 
U 
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Library Information 


REO FOR I=@ TO SPRINT SIF L=ITHEN PRINT "3 °; 

$30 PRINT PLSCID,PCI,39,PC1,49,PCIL,539¢NERT 

960 RETURN 

910 PRINT NS$SLi=L 

929 PRINT "t) Ml 2 2 oa mao oa sh OE STINATION,AS 
YS TEM, | ",PLSCL1) 

939 FOR 1=@ TO 4¢PRINT "St mw "Z; CHRSCI*4395,° WW ''SSIF I 
=LTHEN PRINT “ld °°; 

949 PRINT PLSCID;°™@ G ";,PC1,6),,; 

a8 PRINT "a "“;CHRSCI4#5395°9 W"SSIF I45=LTHEN PRINT “ld 


es. 


960 PRINT PLSCI4¢59,°@ © ";5,PCI14+5,693NEXRTI 

979 PRINT “WMWQW..°7°O7..’°93 *7,zA TO OU,A SELEC 
T ON "SPRINT a sa aca ae ce P 

TO,.a LAUNCH. " 


Zea 
> 


989 RETURN 
990 IF CCCOORGDCT,1>2C=OTHEN SOUND 1,200,572 RETURN 


Hyperjump Table and Random Interstellar Events 


1080 GQSUB 9190 

14@10 GETASSIF AS="""THEN 1010 

1020 IF AS=""Q "THEN 530 

14390 IF Li=LANDASCCAS)=13THEN GOSUB 6902GOSUB 8404 
RETURN 

1@40 IF ASCCASICDOASTHEN 1110 

4O50 K=PClLi,6,¢9L=LASFOR Z=1 TO K?GOSUB 11403SD=SD+.01¢ 
IF CRO@THEN CR=CR#CR/500 

1960 IF CRC@THEN CR=CRECR+-150 

1Q7Q NEXTZ 

AQOS9 FOR IT=@ TQ SFPCI,62=FNDSCISFNEXTSGOSUB 22004 
SQUND 1,19000,10 

1990 IF RNDCOD*CRECR ~1000000550000/SDTHEN PRINT "la m a« ao 
~ VY OQUR.ASHIP,AWAS,ZREPOSESSGED 
» « »- "GOTO 23860 

JA1NO B=28CS+4+50Q3GOSUB 254503GO0SUB 690SRETURN 

A11@ IF ASCCASICARZORASCCASISSTTHEN 1018 

Ti2eO@ LA=VALCASOSPRINT "9 oS GW BB BBP BP "SG RCS;". 2 2 
oo o o eo o TE UP GET TDD Sk a a SPL SCL4); 

11326 GOTQ 160190 

41i4Q@ GOcT,19=GDC7,19-Q.14 

41150 IF GDCT,AXCOTHEN PRINT "Ww. wow YOU,ZARAN, O 
CL 2 OUR a oP AE ON go PE DO ee PO Pe Ge eet: os 
» « “SGOTO 2s66 
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116@ 
Liiva 
118@a 
1194 


1200 


12104 
1229 
1230 
1240 


1250 
1260 


IF RNDC@I>.O6THEN RETURN 

IF RNDC@9>.3THEN 1220 

DM=DIMFt INT CRNDCO*#54+152¢SOUND 3,400,20 

PRINT CYs;"N WM WWW WM... a SPACE ,ZODEB 
RIS ! ft a= "SFOR J=1 TO 40Q4NEXTS 

IF DIS=SSTHEN PRINT "WU We YOUR, SHIP, 
WAS .DESTROVYED,ABY,ZAA,ANETEOR" 
GOTO 2k60 

RETURN 

IF RNDC@O>.ATHEN 1250 

GO"T, 19=GDCT,1I-INTCRNDCO)#109-12SOUND 3,1000,20 
PRINT CYs;"S WU UUW MMW... llMtis-sun 
Pf f @ "SFQR J=1 TO 4OO0S¢NEXTJISRETURN 

IF RNDCOSSLE2/120THEN RETURN 

GOSUB ATA@SRETURN 


Trading Goods and Trade Table 


=f Hae eke ANE ae pice scam 


one TT = _ — ieee om = oa = = ~ -= =e — = = 8: se 


PRINT ie E PoE MH a a ea Sw oe PORTE Ce 
PRINT "bk ";Lis,"4 " 

FOR I= TO 6SPRINT LEFTSCTS$CID,39;4IF IX=I THEN 
PRINT “ig '"; 

PRINT RIGHTSCTSCID,89;°M@ UE “ZSPRINT USING'# # # + 
# HH . HH "STPCIOD; 

OE eae SNe tay. da sks las Sat es a aa a a i a a ea ge, ESET 
PRINT "hb ";LASs"4 * 

PRINT TSCTO;,°°E “;SPRINT USING'’# # # # # # # . # # 
PEC ae PR ENT a ee a a a ee ae ee a 


we. 
2 


PRINT "Bb “;L4$;"4 °° 
PRINT TSCS),°"E "ZSPRINT USING # # # # HH. H 4 


ee. 
2 


PRI eee a so oe eS ek so Se? 
-~-Q@uTT,zA.«z*7R *’ - REPATI R “SDONS=""4G0SUB 16 
ra St 

IN=-L1S91S=""SG0C8,19=0 

PRINT CYWS,CDS;NLS 

GETASSIF AS=""THEN 1420 

IF AS=""Q ""THEN GOSUB 690$RETURN 

IF ASTID YR "THEN 1480 
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ChexS 


um Tables 


4H35 
2726 
1968 
2271 
66058 
R724 
A329 
1711 
2599 
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Save the first half of Star Trader by entering SAVE “STAR 
TRAD FIRST” for tape or SAVE “STAR TRAD FIRST”, 8 for 
disk. 

Load and run the Merge program by typing LOAD “MERGE” 
for tape or LOAD “MERGE’”’,8 for disk, and then entering 
RUN. 

From your games tape or disk, load the first half of Star 
Trader: enter LOAD “STAR TRAD FIRST” for tape or “LOAD 
STAR TRAD FIRST",8 for disk. Do not RUN the program at 
this time. 

Enter SYS16331. 

Load ChexSum by entering LOAD “CHEXSUM” for tape or 
LOAD “CHEXSUM", 8 for disk. 

Enter SYS16355 to merge the first half of Star Trader with 
ChexSum. 

Enter RUN 62QQ9 to activate ChexSum. 

The program will respond with the prompt: 


LINE NUMBER: ? 


Pressing the RETURN key at this point will cause ChexSum to 
Start with the first line of Star Trader, first half. Entering a line 
number will start ChexSum at that line. 
ChexSum next prompts with: 

PRINTER (Y/N) ? 
A‘Y will send the ChexSum table to the printer or an ‘N’ will 
send it to the screen. 
Check your grand total for the first half with that printed 
above. If they differ, a line has been typed incorrectly. 
Compare line numbers until you locate the bad lines and then 
edit them. 
Repeat steps 8 to 19 until the games program is debugged. 
In step 8, enter the number of the first bad line to avoid 
ChexSum verifying the games program from the first line. 
Erase ChexSum from the end of the first half by entering 
DELETE 62099-62196. 
save the first half as “STAR TRAD OK1". 
Enter the second half of Star Trader, lines 1459 to 2889 
(which follow), and save it: SAVE “STAR TRAD SEC” or SAVE 
“OVAR TRAD. SEG: 26; 
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PRINT CY$;CDS$;,°'"% . . REPAIRS 4 “;DMZSINPUT No 
IF NODMTHEN N=bf1 

IF INTCHIXHTPCREISCSTHEN N=INTCCS/TPCS)) 
DM=DM-INTCNISCS=CS—-INT CNI#TPCBISGOSUB 16503GOTO 141 
Q 

IF ASTO"B "THEN 1560 

PRINT CY$,CDS;,;,"H ..4BUYINGs, ",; 

IF INC OTHEN GOSUB 1620 

PRINT RIGHTSCIS,&89;°°C "5 

PRINT USING'#H # # # # # "ZINTCCS/YTPCINID, SPRINT **) 
PRINT "a. 2 «2 «2 2 wo» o2 wo o o o FEUD 0 


oe. 
a 


INPUT NSIF TPCIND#INTCNISCSTHEN N=INTCCS/TPCIND 
CS=CS-TPCINI*INTCNDSGDCIN, 15=GDCIN,1>5+NSGOSUB 16503 
IN=-1;GOTQ 1419 

IF ASTD"S “THEN SOUND 1,200,53GOTO 1410 

PRINT CY$;CDS$;"—3 . 20 SELLING, “ZSIF IND=0 
THEN PRINT "RE BS BD BI BD BD BS BF’; SGOTO 15908 

GOSUB A6B2OSPRINT RIGHTS$CI$,89;91F INDTTHEN SOUND fi, 
2AA, SSIN=-i1sGOTO 1410 

a as GL Sa On a | | | 
1000 00 08 88 08 08 0 08 a ke’; 

INPUT NSIF INTCNDIS>GDCIN,ASTHEN N=GDCIN, 19 
CS=CS4#ATPCINOMINTCNDISGDCIN, 19=GDCIN,12-NSGOSUB 16509 
IMN=-12GQTQ 1410 

GETASSIF AS="""THEN 1626 

IF ASCCASS>=42ANDASCCASIC=SSTHEN IN=ASCCASI-ABS1S$ 
=TSCINISRETURN 

SOUND 1,200,523GO0TO 1620 

GOSUR SS@SPRINT CYS, "3 OO WOM Me,., CAS Ha 
ao oeooeoeooe eo eo eo o FE SOUT EE a a 
PRINT USING "S$ # # # # # # # HHH # . OH H# -“';CS 
DNS=""SFQOR T=@ TO 63PRINT "SEW YW OW WY  @ BBB BI 
Bie) Bf Bi Bl Bi BY 'S ONS;ZRCS; 

PRINT USING'# # # # # # # # ";GDCI,1,°>DNS=DNSt"''y " 
SNEXTSONS=0ONS4*°?) WW Ow” 

PRINT “SG OF BF BF BF Bt Bl Bs BB By BB) SONS; RCS;2 
PRINT USING’# # # # # . # ";,GDCT,199 

PRINT "HRGE WW BB) Bs) Bi Bl Bi Bl “SZ DNS,ZRCS,; 
ePRINT USING'# Dry RETURN 


ee. 
& 


+2 
+ & 
#C 
+ 
*C 


Ambushed By Pirates! 


PRINT "Ly "“SCOLORI, 8>COLORQG, 2, 49 DR=02PS=42803SK=0205S 
=A 

SN=QSBT=S00SFQR 1=4 TQ INTCSS/71BOI5SN=SNtINT CRNDCO) 
HOISBT=BT F5004INT CRNDCO)*600)92NERT 


PFCOA,OI=SStINTCRNDCOI*SS /LOO+2 #1 00S1F SNOSTHEN PFC 
O,0>=PFC@Q,O9+CSN-93)*100% SN=9 
PF CA, LJ=INTCRNDCOIRSS “1004+2)4+INT CRNDC OIL 42) 


FOR J=1i1 TQ SSPFCJI,9O=INTCRNDCOI8SS/1B4+SS/IOISPFCI,A 
J=INT CRNDCO9855,/S500+1> 

IF JOCNTHEMN PFCI,6)=0 

NEST 

FOR J=QA TO ASPFCI, 39=3204+INTCRNDCOI*RIDSPF CS, 29=3+ 
INT CRE CAMB IS NERTS TG=030S=SNt1 

DR=DR-AQ*DFSIF DRCOTHEN DR=0 

DPM=DIMt+ INT CORI SDR=DR-INTCDRD 

IF GOCT,19C=QTHEN PRINT "Hid WW YY OU,L,RAN, O 
UT.2OF .F UEL. . . "$0M=SS41SFOR I=14 TO 1000 
7NER 

IF DMS=SSTHEN PRINT "Ge BMP LOOTED, B 
YaoaFPITIRAT ES ! "SFOR I1=@ TO 6$GDC1,4)=O2NEXT*SC 
S=ASGQTOQ 26a 

PRINT NSSPRINT "Mm .’E “’,EVADE,Z 7 C’,ZCL 
GPC, tat A OE es ee SG ag 

Oh oe OB OU RE ge, te 


Get Player’s Combat Instructions 


Draw Combat Display and Resolve Combat 


GOSUBR TEESGOSUB 2asa 

IF SN=-ATHEN 1930 

PRINT CWS,RCS;,CDS;,"0] Hl wa ow TARGET gaan ow ow ow 
a2  2ePRINT USING'#H # "ZS TGSSGETASSIF AS="""THEN 1860 
IF AS="L "“ANDLPSQANDPFCTG,@>O0THEN GOSUB 1970¢ 
GOTQ 1790 

IF AS=""T1 "ANDMSS@ANDPFCTG,Q@)>@THEN GOSUB 20804 
GOTQ i7Tg94a 

IF AS="E°"“ANDGDC7T,LI>OTHEN GOSUB 264023GOTO 1798 

IF AS="C “THEN IF RNDCOIC.TTHEN EV=-3¢GOTO 17990 

IF ASCCASISATANDASCCASICSSTHEN TG=ASCCASI-483 

GOTO A260 

GOTQ 160 

COLQRO,23PRINT "WU "SIF OSCS>SKTHEN RETURN 

PRINT "GW We Y QU, ODE F EATED,A THE «zP 
|e ane ee es me a a ON: a, | 
CS=CS4#4RBTSPRINT "WY A N 
PRINT USING'’# # # # # 
Sie a , 
FOR T=1 TO 2ADASNERTSPRINT "ky ""SRETURN 

SOUND 3,10920,22S0QUND 1,970, 8¢PFCTG,O3=PFCTG,O9-C150 
MLPD-PFCTG, 2) 

IF PFCTG,@2<=O8THEN SQUND 3,900, 203SN=SN-19SK=SKt1 
RETURN 


Dea COLLECTED, "ss 
# # # “SJ BIZSPRINT "“. I Na B 
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Mh M PM A Pd 
DY 2 

Aa Bh WO Mw 
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9 9 9 
~] in 
99 9 


ry td 
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- 
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mn 
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1) 
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NM N 
N) 
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SOUND 3,689, 2O¢MS=MS-1¢1F RNDCO*1OOCPFCTG,3> 
THEM RETURN 
SOUND 3,299,209 
INT < Bue Cee? 
IF PFCTG,@><=0 
RETURK 
GDC7,12=GDC7,19-. 12 EV=INT CRND(O2*3412¢RETURN 
FOKE 20724+PS,42¢POKE 20484#PS,127 
FOR J=9 TO O STEP ~ASIF PFCJ,@2C=OTHEN 2180 
MV=INTCRNDCO)*39S1F PFCI,32+EV-MV>=1THEN PFCJ,32=PF 
se ah 

IF PFCJ,3)>39THEN PFCI,92=O$SN=SN-1$GOTO 2180 

IF INTCPS 4Q)>PFCJ,2.2ANDRNDCO)C.3THEN PFCJ,2)=PFCJ, 
2d+1 

IF INTCPS.409CPFCJ,22ANDRND(O)C.3THEN PFCJ,22=PFCJ, 
22-4 

IF J=QTHEN POKE 20724*PFCO,2)*404+PF(0,3),65$POKE 204 
R+PFCO,2)*404#PFCO,39,127¢G0TO 2140 
POKE 2O724PFCJ,2)9*404+PFCJ,32-40,J+48$POKE 2048+4PFCJ 
»2)404PFO3,39-40,113 

POKE 3Q72+PFCJ,2)*404PFCJS,3),87$POKE 20484+PFCJ,2) 
MID*PFCI,2),127 

IF RNDCOCPFCI,3)/40THEN 2180 

SOUND 32,1920-10%),5¢DX=CPFCI,19#400) /CPFCJ,3>42> 
DR=DR#tDXSIF RNDC@2CDX/CSS-DM+#DX > ANDDF >OTHEN 

SOUND 2,1920,102SOUND 3,990,15$DF=DF-4 

IF FNDC@)CDX/CSS-DI#DXANDLPDOTHEN SOUND 3,1000,103 
SOUND 32,900,10¢LP=LP-4 

NEXT J 

Vee RETURN 

TPXO2=2Q/SORCPCL,5)) 

TPO1>=2000/CS#PCL,494PCL,59/5) 
TPL2)=4ON00 -C1O"P CL, 494P CL, 32) 

TFC 2)=C129090+1NT CRNDCQ>*2000>>/SQRC1O*PCL, 49) 

TPC 4) =199000/SORC4*PCL, 49) 
TFCS2=100990/SORCPCL,5) 72) 


7PFCTG,Q)=PFCTG,O2-INT CRNDCO2#50)- 


THEN SOUND 3,950, 203SN=SN-19SK=SKt1 


Determine Trade Value of Goods 


TPC 6I=15O0OO%*P CL, 29-CS*PCL, 49d 

sl ry ee ose ieee ae 

TPCRI=SHO-PCL, 49822 

FOR 1=@ TO TSIF RNDCOIC.4THEN TPCID=TPCID—-RNDCODMCT 
PCT) -CT4#4lL -2993GOQTO 2319 

TPCT O=TPCIDFRNDCO*TPCID -C1AO4+2%L D 
NEXTSIS=INTCRNDCQI*TISIF INTCRNDCO)#109C>LORRNDCOD 
CSO-CSDHIQOITHEN I X=-L1SRETURN 
NS=CRNDCOI*PCL,394+8)/42GS="S HORTAGE "SIF 
RPNDCQIC.STHEN GS="G LU T "“4NS=4/NS 


PRINT "a WM WW&GUTHE RE ,ZAHAS,BEEN,ZA Ag, 
MOS sa UU a “PRIGHISCT SCI xXdy 33"... * 

PRINT "PRICES ,ARE,H ",SPRINT USING'# # . 
# # "GNSZJSPRINT "ss a2 T IME S,z NORMAL !?! ! ! 
FOR [=41 TQ 25003NEXTSTPCIXI=RATPCIXIMNSS RETURN 
DNS="" 

PRINT “fl "SFOR I1=0 TO GSPRINT "SS WW © ) BP Bt Bt BB 

BI BF BI BE BE BP SONS, SPRINT USING'# # # # # # # # = "5G 
Pcl, @) 

PRINT "EW & © @ BF BP BS BD BE Bi BS BI) BP BS BE O°’ RCS;DNS;2 
PRINT USING'# # # # # # # # ";GDCI,1)5 

DNS=DNS#"O] "SNEXTSRETURN 

PRINT CyYS;NLS 

PRINT CYWS,°% 2. . «2BORROQWING, "; 

INPUT NSIF INTCNIS>BTHEN N=B 

CS=CSF+INT CNIS CR=CR-INTCNISB=B-INTCNDSGOSUB 2460 
PRINT CYS;NLS 

RETURN 


PRINT CYS;°FS GW Ww. aw wow aw CAS Ha aa SS a “SF 
PRINT USING'# # # # # # # # # # # # # Hi. OH HO "ZCS 
PRINT CWS,'°F3 ( WW. «2 2 aw CRE OI TT ,«~ S$ gw "GS 
PFRINT USING’# # # # # # # # # # # # # # i] OH HO "GCR 


sRETURN 

PRINT C'YS;NLS 

PRINT CY¥S;°% . «2 2OEP OSI TING, "; 

INPUT NOIF INTOCNDIDSCSTHEN N=CS 

CS=CS-INT CNISCR=ECRFEINT CNISB=BtINTCNSSGOSUB 2460 
PRINT CYS;NLS 

RETURN 

IF RNDCOISPCL, 4) /“40THEN RETURN 

IF RNDCOI>.2THEN 2620 

CT=PCL, 4941004 1000%RNDCODFRNDCOIRCCS /100094CS /1000 
IF CTSCSTHEN RETURN 

PRINT "iG WWW wyOoU,A HAVE. BEEN. OF F 
Bf EO: a ak Bid 6 Be OR 2c SF OA CE et 

PRINT "IY SHI Pa FROMAA,ZACONPAN YW, O 
N «2 ";PLSCL) 


Special Offers When Arriving at a New Planet 


PRINT "Wt IT «2. C OST S 4 “";$PRINT USINGH # # # + 
# # # “SCTZSPRINT "2 CR. "5 

PRINT "sa WI THwzAaz TRADE-IN. "SGOSUB 28 
20%SS=SS+109% RETURN 

IF RNDCO)>.25THEN 2688 
CT=160%(25-P(L,4)>+RNDCO)*CCS /1000)+CS /1000 

IF CTOCSTHEN RETURN 
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PRINT "RWWWaGTHERE,AIS.zZA.ANENWAL A 
SER a PR DF OR a SOAR besa MY EB RE 
PRINT "W I T,zCOSTS.AZALANERE «2 “38 

PRINT USING'’# # # # # # # # ";CT;Z;SPRINT ". CR. ” 
GOSUB 2&20SLP=LPtiSRETURN 


IF RNDC@)>.45THEN 2740 
CT=200%(25-PC(L,4)>+RNDCO*CCS/800)+CS “800 

IF CT>CSTHEN RETURN 

PRINT "GW WWM THERE.AZAIS,ZA,AOEFLEC 
TORsa2SHITELDAAYVATLABLE™ 

PRINT "NC OSTING.zASTIUST 4 "Z$PRINT USING 
# HH HH OH OUGCTZSPRINT "2 CR." 

GOSUB 2820¢DF=DF+441$RETURN 
CT=70%C25-PCL, 4) )+RNDCO)*CCS “10009 4CS /1000SN=INTC 
RNDCO*PCL, 4) “24PCL, 49/344) 

IF CT¥NDCSTHEN N=INTCCS/CTD 

IF N=@THEN RETURN 

PRINT "WM WW GNA. NUCLEARAMNISSIL 
ES2ZARE.LZOFFERED." 

PRINT "l) TQ TAL «COST «I S ";$PRINT USING™# 
# + # OH HOH HOG CTHNZ SPRINT "2 CR." 

INPUT "MH OWs2MANY,.ZDOLZLYOULALWISHa, 
TO. BU Y “ZNMSTF NMCOTHEN NM=@ 

IF NMONTHEN NIM=N 

MIS=fMiS4+Nie CS=CS-NIRCT FRETURN 

PRINT "MA RE.2YOQOU.AZLWILLINGATO.ANA 
KEa2aTHEwzPURCHASE,A?"” 

GETASSIF ASCO"Y “ANDASCI"N “THEN 2830 

IF AS="V¥ "THEN CS=CS-CT 

PRINT "ky "SRETURN 

PRINT TEM WM. aw a a ew mama aC ASHAPOSESS 

E(Die MSESEPRINT “Wink. Go a ca a dS B AON Ka BMAL LE 
ANCE. "SCR; 

PRINT "2 MM. a ao aaa a GOODS,POSES 

SEDW" 

FOR 1=@ TO GSPRINT "S) 2 a a aw ww a  “STSCIOGS 2 

"Z;GDCI,@)#GDCI,12¢NEXT 


ChexSum Tables 


1450 
1469 
1474 
14380 
14948 
1506 
41518 
1520 
1530 
1540 
455@ 
4560 
AS7TO 
15380 
1s59@a 
1608o 
1610 
1620 
163060 
1640 
1650 
1660 
1679 
1630 
169@ 
17ea 
1719 
1720 
4730 
1740 
1750 
17660 
417TO 
A7sO 
1739 
1200 
1&10 
A820 
1230 
1840 
1850 
1860 
AB74 
1Rsa 
18990 
139@0 
491@ 
1920 


2658 
2807 
2822 
4180 
1643 
ANTE 

916 
2438 
2484 
3302 
5255 
2242 
41274 
4900 
4136 
25417 
5255 
1277 
4532 
1272 
4444 
1404 
2863 
4046 
2764 
2685 
3464 
681iT 
6856 
3505 
S764 
1410 

434 
G13z 
2300 
2334 
5425 
6726 
5470 

739 
4412 
4854 
3416 
3414 
2665 
2018 
a736 

529 


193a 
1949 
19590 
1968 
A379 
1989 
1999 
2ARa 
2H190 
20208 
2930 
2049 
2058 
26a 
2070 
2Q30 
2aga 
Z21Ag 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2199 
2200 
221a 
2220 
2238 
2240 
2250 
2268 
2270 
2230 
2290 
23Aaa 
23190 
232a 
2330 
232450 
2350 
23690 
2378 
2380 
2390 
2400 


2110 
3022 
49823 
47414 
4592 
32710 

143 
2560 
A207 
3715 

143 
2a74 
1926 
2558 
5346 
2278 
2964 
2965 
6128 
5555 
4562 
1767 
3597 
6243 
54128 

205 

594 
1433 
2520 
2398 
3249 
1953 
4956 
2318 
1786 
1594 
5425 
2910 
5639 
6025 
3796 
4387 
2204 

445 
2773 
27k3 
1247 

GAd 


24910 
2420 
24930 
2440 
24950 
2468 
2479 
2430 
2490 
2508 
251A 
25209 
2530 
2540 
2550 
2560 
2570 
2530 
253969 
269A 
2610 
2620 
2630 
2648 
2650 
2660 
26790 
2689 
26990 
2720 
2710 
2720 
2730 
2740 
2756 
2760 
277A 
2789 
2790 
2300 
2810 
22a 
2838 
Z2R40 
2258 
2868 
2kTO 
2250 
TOTAL 


1674 
1544 
3644 
6idt 
143 
3028 
3369 
611 
1762 
AT17 
3644 
6411 
143 
1647 
A1T3 
9246 
941 
3700 
2578 
2002 
3151 
1234 
3663 
941 
3790 
3507 
1382 
1234 
3558 
941 
3761 
3373 
1332 
7TQ65 
2154 
T9397 
3406 
3654 
3988 
41144 
2362 
329552 
2405 
1640 
OTT 
q5k2 
2001 
3675 
4196@2 
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Load Merge if you have reset or switched off your computer 
— see step 3. 

From your tape or disk, load the second half of Star Trader: 
LOAD “STAR TRAD SEC” or LOAD “STAR TRAD SEC" 8. 
Perform steps 5 to 13 to run ChexSum on the second half of 


Star Trader. 

Save the second half as “STAR TRAD OK2". 

Load Merge if necessary — see step 3. 

Load the first half by entering LOAD “STAR TRAD OK1" for 
tape or LOAD “STAR TRAD OK1",8 for disk. 

Enter SYS16331. 

Load the second half by entering LOAD “STAR TRAD OkK2" 
for tape or LOAD “STAR TRAD OK2”’ 8 for disk. 

Enter SYS16355 to complete the merge. 

The program will now run! 


Appendix A 
Using Joysticks 


All the games in the book are designed to be played from the 
keyboard, usually using the following scheme: 


KEY ACTION 
| Left 

P Right 
Q Up 

Z Down 
space Fire 


The Commodore 16 has an inbuilt function JOY(N) which is 
used to read joystick input. The variable N is set to 1 to read 
joystick @ and to 2 to read joystick 1. When the fire button is not 
depressed, the JOY(N) function returns values from @ to 8 to 
indicate the deflection of the joystick; when the joystick is 
deflected and the fire button is depressed, values from 128 to 136 
are returned (see diagram below and overleaf). 


JOYSTICK VALUES, NOT FIRING 
UP 


LEFT 7 3 RIGHT 


JOYSTICK VALUES, FIRING 


UP 
129 


136 


LEFT 135 131 RIGHT 


133 
DOWN 


Thus, the statement 
10 IF JOY(2) = 130 THEN (action) 


would cause the appropriate action to take place when the 
joystick was moved to half-past two and the firing button 
depressed. Armed with this information, you should be able to 
alter the GET A$ statements in the programs so that they will 
operate with the joysticks. 
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Appendix B 
Software Sprite Utility 


WHAT IT IS AND HOW IT WORKS 


This utility allows the user to move a block of characters ina3 x 3 
Square around the screen. To use this program simply POKE the 
X and Y co-ordinates of the block into locations 16357, 16358 and 
then do a SYS1695Q. To move the block round the screen just 
change the X and Y co-ordinates and repeatedly call the SYS 
routine. 

For this program to work correctly the screen must not scroll. 
Type in the program and save it to disk or tape, then run ChexSum 
on tt. 

When executed it will place a machine language program at 
16030 decimal and set the top of memory pointer to this location to 
prevent BASIC from overwriting it. Once executed, the program 
will sit there until you overwrite it, reset the top of BASIC pointers or 
switch off the computer. You can either tack it onto the ends of 
your programs and use !t as a subroutine or load it in, run it and 
load in another program which calls it. 


Sprite Utility 


19 POKE SS,158POQKE 56,623CLR 

2a FOR I1=16050 TQ 1605@#+32213READASPOKE 1,ASC=CtAS 
NEXT 

308 IF CCO>4496@THEN PRINT "C HE CK,ASUM,A ERR OQ 
PF,zIN,PROUGRANMN ";C3STOP 

An STOP 

saa) DATAIES, 240,141,241,63,165, 241,141,242,63 

6a DATALT2,2322,63,201,40,208,7,173,231,63 

7a DATAZO1,@,244,3, 32,168,623, 32,23,63 

2A DATAZ2,392,63,173, 239,63,141,232,63,173 

aA PATA2Z29,63,141,231,63,173,242,63,133,241 

JAB DATAL73,2914,63,133,240,36,169,%,133,240 
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11@ DATA169,12,1323, 241,172,234,63,152,240,16 
120 DATA2Z4, 165,249,105, 40,133,240,169,0,101 
412@ DATA2491,133, 241,136, 202,240,165, 240,24,1903 
14a DATA2Z323,63,133,244,169,0,101,241,133,241 
15a DATAS6,173, 220,63,144, 234,63,173,229,63 
160 DATA1I41, 233,63, 32,234,62,160,0,1480,235 
17@ DATA63, 140, 236,63,162,3,1492,237,63,162 
1zRQ DATA3, 192, 238,63,174,235,63,172,236,63 
13a DATAL?T?, 240,157,162,62,238,235,63,238,236 
ean DATAGS, 206, 238,63, 202,234,173,236,63,105 
218 DATA37,141,236,63, 206,237,63,208,216,96 
220 DATA173,229,63,141,233,63,173,230,63,141 
238 We Stee) ang et ee at 
240 sei heel sigs 141, 240,623,162,3,142,237,63 
25a DATA162,3,142,232,63,A172, 226, 63,173,240 
260 oe ee ee 
278 DATA2Z38,63, 208,237,173, 236,63,105,37,141 
220 DATA236,623, 206,237,63, 208,219,96,173,232 
238 DATAG3, 141, 2324,63,173,231,63,141,233,63 
3AaQ DATA32,234,62,160,%,140,235,63,140,236 
318 DATAGB3,162,232,142,237,63,162,3,142,238 


220 DATA63,174,235,63,189,162,62,172,236,63 

228 DATA1LSS, 240,238,235,62,2328,236,63, 206,238 

240 DATAG63, 202,234,173, 2326,62,105,37,141, 236 

25a Se Pla apilaarei gee gensh ee a 

ioe DATAS2,2,0,9,8,0,80,8,80,a 

27 DATA eae 

ChexSum Tables 

12 1207 12a = 2245 250 = 2029 

2a = 3180 140 = “2428 268 = 2144 

20 = R994 158 = PARR 270 = 24149 

40 = 145 16a = 2016 2Ra = P2457 

atl = 24175 17a = 2A1A 2a = 2A75 

6a = 41992 18a = 2032 RA = 2014 

7A 14224 13a = 2244 210 = 4978 

RA = 2025 2AaQ = 24127 220 = 2092 

3a = 2154 as hs) = “ea7ra 330 = 2205 

1A 2@a6 228 = 2144 340 = PAST 

110 = 2144 228 = S239 350 = A817 

A420 = 2AR6 240 = 2188 268 = 112@ 
270 = 29a 


TOTAL = 74515 


SPRITE DEMONSTRATOR 


Type in the sprite utility and run it to place the utility in upper 
memory, then enter NEW to clear the BASIC loader. Now type in 
the following demonstration program: 
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TT 


10 PRINT CHR$(147): 

20 FOR!I=1 TO 20 

30 POKE 16357,1 :REM SET X CO-ORDINATE 
49 POKE 16358,!| :REM SET Y CO-ORDINATE 
5M SYS 16050 “REM MOVE SPRITE 

60 NEXT 

70 GET KEY A$: GOTO 20 


When you run the program, the screen will clear and a block of 
characters will go from the top of the screen to the bottom. Hitting 
any key will move the block again. The characters in the block are 
from 127 ASCII to 135. 


SHAPE DEMONSTRATION 


It is possible to create differently shaped ‘sprites’ by redefining 
the characters in the 3 x 3 block. Enter this program: 


10 POKE 55,255: POKE 56, 47 :REM SET TOP OF 


To B=12 “REM MEMORY TO 12287 

20 POKE 65298, 192 -REM POINT AT NEW 

30 POKE 65299, 192+4*B = :-REM CHARACTER DEFINITION 
49 P=1024*B 

50 SP=P+32"8 -REM DEFINE SPACE 


69 FOR I=SP TO SP+7:POKE I, @: NEXT 
70 IN=P+(127*8) :REM Define charsacters 127 - 135 
OD: FOR I=IN TO INA 71=POKE.b 2552 NEXT 
99 POKE 16357, 5 
109 POKE 16358, 5 
110 SYS 169050 


Asolid3 x 3 block will appear at co-ordinates 5, 5onthe screen. 

In the program, lines 20 to 4@ tell the computer to get its 
character set from memory starting at 12288. Each character is 
stored as eight bytes of memory and each bit in the byte 
represents one pixel (or dot) of the character. The first byte of the 
character represents the top pair of eight dots, while the second 
byte represents the next row of dots down and so on. 
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CHARACTER SHAPE 


Binary Hex Decimal 
9O1 1 11990 3C 60 
91900 00190 42 66 
10190 01901 AS 165 
10910 901901 AS 165 
10900 990901 81 129 
1011 1101 BD 189 
1000 99901 81 129 
0111 111710 7E 126 


To restore the normal character set, hold down the RUN/STOP 
key, then press reset. This will land you in the monitor! To escape, 
just press the X and then the RETURN key. 

To find out the order of characters in memory, check the ASCII 
table in your reference manual. Use the formular SP=P+(A*8) to 
calculate the position of a character in memory, where A is the 
ASCII value of the character, and P is the start of character 
memory. 


CAUTIONS 


Please note these important facts: 


1 The range of movement of the sprite is @ to 37 for the X axis 
and @ to 22 for the Y axis. The routine does no range testing, 
So It is up to you to make sure that the X and Y co-ordinates 
are in range. 

2  thescreen must not scroll. 

3. Donotlet your program place a sprite in location (@, 0), which 
is reserved. 
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Appendix C 
Merging Programs 


The Merge program can be used to join other programs besides 
ChexSum and games programs, overcoming the lack of a 
MERGE command in Commodore BASIC. An important limitation 


to remember is that the smallest line number in the second 
program must be greater than the largest in the first program. 


1 


Load the Merge program by entering 

LOAD “MERGE” for tape or 

LOAD “MERGE”, 8 for disk. 

Enter RUN to cause Merge to place a machine language 
routine in high memory and to protect it by changing the 
top-of-memory pointer for BASIC. 

Load the first program by entering 

LOAD “first program” for tape or 

LOAD “first program”, 8 for disk. 

Enter SYS16331. 

Load the second program by entering 

LOAD “second program” for tape or 

LOAD “second program”, 8 for disk. 

Enter SYS16355 to complete the merge. 
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CUD 


Appendix D 


Printout Symbols 


To ald clarity, the graphic symbols of the Commodore 16 
computer have been represented in this book by special symbols 
designed to look like the pictographs which appear on the 


Commodore 16 keyboard. 


Symbol! 
in book 


NNUGeAROMPr RGR RPSROLEL 


« 


> Om 


Key 


CLR 
HOME 


CURSOR 
CURSOR 
CURSOR 
CURSOR 


CTRL 
CTRL 
CTRL 
CTRL 
CTRL 


DODD DOD|DAD 


4 


nna pw hy 


iD oO A 


a) 


CVRL. x 
CTRL . 


COLOUR AND CONTROL CHARACTERS * 


A TNA Rw he 


* These characters are designed to emulate the characters which appear 


on the screen. 
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KEYBOARD CHARACTERS * 


Symbol Key Symbol Key 
IN book IN book 

- CG oc ff Gc ft 
a G OD a GC a 
he! GG Cc a: G F 
., Gc R ae CG Yy 
o G fT % G + 
ca G ul = G Y 
a Gc A se G | 
— Ge a G oF 
ie © G %: G - 
i: CG J ie C: H 
a GL a: G kK 
a GC om | G oN 
oe Gc « oo G ¢£ 
r GC a i! G Y¥ 
‘ GC x 1 G 2 
L. SHIFT L J SHIFT @ 
r SHIFT QO 7 SHIFT P 
%: SHIFT I ¢ SHIFT U 
2 SHIFT K < SHIFT J 
0 SHIFT LJ e SHIFT Q 
+ SHIFT + x SHIFT V 
\ SHIFT ™ / SHIFT N 
+ SHIFT + SHIFT S 
+ SHIFT & * SHIFT A 
= SHIFT E a SHIFT D 
= SHIFT % = SHIFT cC 
= SHIFT F ae SHIFT R 
1" SHIFT T t SHIFT G 
AF SHIFT B SHIFT - 
LE SHIFT H et SHIFT 
' SHIFT £ & SHIFT = 
t SHIFT ZERO 


* These characters are designed to emulate the pictographs which appear on 
the front of the keys. The @ symbol is the special shift key located to the left of 
the left hand shift key. 


Unfortunately different keyboard characters can produce _ identical 
symbols on the screen and printout. If a program doesn't work, these 
symbols may have been interchanged in a string: 


if CTRL «4 CURSOR LEFT 
-— SHIFT SHIFT C 
HF SHEET. -B SEL Tt) = 
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Appendix E 
Reader Feedback 


Melbourne House is always interested in receiving letters from Its 
readers. 


Publishing Ideas 


lf you have written a book or program that you think would be of 
interest to other computer users, we want to hear from you. 

We are always interested in discussing new ideas for books 
with authors. If you think you have a good book idea, please send 
a detailed outline first. We prefer to work with authors as early as 
possible in the writing process. 

BASIC programs are wanted for inclusion in our books, and 
machine language programs are wanted for our list of adventure 
and game software. Always send a tape or disk and, if possible, a 
code printout with your submission letter. 

Fees and royalties are negotiated acccording to the quality and 
ingenuity of the submission, and are more than competitive with 
those of other publishing houses. 

Send your book or program to the Melbourne House office 
closest to you — see the back of the title page for the address. 
Mark your letter to the attention of the Editorial Department to 
ensure an early review of your idea and a prompt reply. 


Bugs and Problems 


Everybody knows how maddening it is to have typed in a program 
which won't run, despite ChexSum and any amount of careful 


checking. 
Every effort is made to ensure that our books are error-free. 
Occasionally, however, you may have difficulties — in such 


instances, do not hesitate to write to Melbourne House. Send your 
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letter to the Melbourne House office closest to you — see the back 
of the title page for the address. 

So that we know which editior: you have to process your query 
as quickly as possible, mark your letter to the attention of 
Customer Support. Quote the title of this book in your letter, 
together with the printing and edition numbers, and the year of 
publication. This information is on the back of the title page at the 
foot. 

Describe your problem precisely, quoting the game title and 
the offending line numbers. 
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Commodore 16 
Games Book 


Customer Registration Card 


Please fill out this page (or a photocopy of it) and return it so that 
we may keep you informed of new books, software and special 
offers. Post to the appropriate address on the back. 


DALE 4.6 01) eee ht hc ee 
NGM one eaiereeiaa eel vkehe ot ob eoak keg hot eee eer ta 
DIC CG On whiney acca aren i tien soso Acie ek ee SN 
GH? sa ravine wee wate a POSICOGE/ZIPCOde 4 so ns Cowes 


MOdel'O] COMDULEr OWNER sx cetaeeacwg-n ee wed not bud awa wh aedces 
Where did you learn of this book: 
[| ~ PRIEND [] RETAIL SHOP 


Fa MAGAZINE (OWE EME) <5 evd-coseededs dna eedded wb 


Pi (ORPERASOCCINY) be ecwu witye ce ender eae ee eee Re ear 
Age? [_] 10-15 [-] 16-19 [] 20-24 [] 25 and over 
How would you rate this book? 

QUALITY: [.] Excellent [-] Good  [] Poor 


VALUE: [-] Overpriced[{_] Good  [_] Underpriced 


What other books and software would you like to see produced for 
your computer? 


Pe Cay ae ane ee VO PS Yor” a CR Sys RS YY SO PC CO SS OS aR CR, SC a 
ae a a ae ea ee a i nd a a ec ae es ce a ree SP Se ae Se a get RR WY Oe 


a. tat. es Mes) lace oe, RE ah Sa ee a ee ie em es ae te er as a i Be a eS ae ee Si sae ae tah 2 ge a 8 ch i a eye 8 Nie ai ig” HN Ga gle 


EDITION LG ee Aiea A 
PRUNING) 4 BOG Age fb a Ge 
YEAR 92 89 88 87 86 85 84 


Melbourne House addresses 


Put this Registration Card (or photocopy) in an envelope and post 
it to the appropriate address: 


United Kingdom 


Melbourne House (Publishers) Ltd 
Castle Yard House 

Castle Yard 

Richmond, TW10 6TF 


United States of America 


Melbourne House Software Inc. 
34/7 Reedwood Drive 
Nashville TN 37217 


Australia and New Zealand 


Melbourne House (Australia) Pty Ltd 
2nd Floor, 70 Park Street 
south Melbourne, Victoria 3205 


If you're only going to get one games book for your 
Commodore 16 then this is the book for you! 


Easy to program 
With the unique CHEXSUM verification program 
you can make sure your games are bug free. 


Hard to beat 

Games that will test your reflexes, your nerve, your 
logic, your strategy and your intelligence — 
educational games, simulation games, gambling 
games and much more! 


All these games explore to the fullest the extended 
graphics and sound facilities of the new, easier to 
use BASIC. 


Program structures are outlined and key variables 
are given so that you can learn how to modify and 
extend these games for more fun-packed action! 


Melbourne IS8N 0-&blbl-185-3 


Publishers —_, MMIII 


